Excel Separar o número em grupos de cinco

[GENECIOFICIAL]

Boa tarde!

 

Conforme o anexo, solicito a sua ajuda.

 

Grato.

perg-separando em gru de 5.xlsx

[Midori]

@GENECIOFICIAL O código que postei neste tópico faz isso,

 

https://www.clubedohardware.com.br/forums/topic/1636817-inserir-virgula-após-uma-quantidade-de-caractere-determinada/

 

Só tem que editar a parte onde separa por vírgula para ficar o espaço,

 

N = N & " " & Mid(Numero, I, 5)

 

Aí é só passar o valor de A1 para a função.

[OreiaG]

Cole esta UDF em um módulo.

Function separa(c As Range)
 separa = Trim(Format(c.Value, "@@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@"))
End Function

 

Em B1 coloque >>> =separa(A1) e arraste para baixo se houver dados abaixo de A1.

[GENECIOFICIAL]

Boa tarde!

 

Midore, não consegui fazer o código que você desenvolveu funcionar, meu conhecimento de VBA é limitado ou quase nada, implementei o código na planilha e não funcionou, para ampliar meus conhecimentos, por favor pode verificar onde errei, conforme o anexo?

Grato.

 

 

OreiaG a sua solução atende funcionou.

 

Muito obrigado.

perg-separando em gru de 5 10-03-2023.zip

[Midori]

@GENECIOFICIAL A função pode ser usada de várias formas, na planilha p.ex é só digitar em B1 =NovoNumero(A1).

[GENECIOFICIAL]

1 hora atrás, Midori disse:

@GENECIOFICIAL A função pode ser usada de várias formas, na planilha p.ex é só digitar em B1 =NovoNumero(A1).

Funcionou, tenho duas soluções para o mesmo problema.

 

Grato.

[OreiaG]

Segue outra solução que funciona também se A1 contiver mais de 35 caracteres.

Function separa(c As Range)
 separa = Trim(Format(c.Value, """" & """" & Application.Rept("@@@@@ ", Application.Max(Len(c.Value) / 5, 1)) & """" & """"))
End Function