Este fórum está sendo desativado

[GENECI]

Boa tarde!

Conforme o anexo, solicito ajuda.

Grato.

[Foxtri]

Bom dia.
Segue uma opção.
Em um Módulo normal coloque a seguinte Função:

Function SepGrupos(XNum As String) As String
Dim i As Long
For i = 1 To Len(XNum)
SepGrupos = SepGrupos & Mid(XNum, ((i - 1) * 4) + 1, 4) & " "
Next i
SepGrupos = Trim(SepGrupos)
End Function

Como Usar :
B1 =SepGrupos(A1)

Até

Foxtri