Excel Inserir virgula após uma quantidade de caractere determinada

[Zamboni_du]

Bom dia pessoal, tudo bem?

 

Preciso de uma ajuda em uma aplicação.

 

Em uma célula são inseridos uma sequencia numérica que variam de 5 até 100 números. Eu preciso que seja inserida uma virgula a cada 5 caractere para realizar uma separação.

 

12345123451234512345123451234512345 (sequência digitada)

12345,12345,12345,12345,12345,12345,12345 (Resultado)

[Midori]

@Zamboni_du Isso pode ser feito com macro,

 

Function NovoNumero(Numero As String) As String
    Dim I As Integer
    Dim N As String
    
    N = Left(Numero, 5)
    
    For I = 6 To Len(Numero) Step 5
        N = N & "," & Mid(Numero, I, 5)
    Next I
    
    NovoNumero = N
End Function

 

Assim é só passar a sequencia para a função que também pode ser usada na planilha como fórmula. 

[Zamboni_du]

@Midori boa tarde,

 

Como eu faria para isso funcionar em uma Aplication.InputBox onde essa sequência de números é digitada?

[Midori]

@Zamboni_du É só passar o retorno do InputBox para a função, p.ex,

 

MsgBox NovoNumero(Application.InputBox("Sequencia"))