pafit,
talvez através da seguinte função personalizada:
function inserevirgula(text as string) as string
if len(text) < 10 then insertcomma = text
dim i as integer
dim t as string
t = left(text, 9)
for i = 10 to len(text) step 2
t = t & ";" & mid(text, i, 10)
next i
inserevirgula = t
end function
inseres a função num módulo. depois, supondo que tens o teu texto em a1, digitas, por exemplo em a5: inserevirgula(a1)
experimenta e depois diz qq coisa, ok?
nota: créditos para o excel mvp, juan pablo gonzalez 🙂