Olá Rui!
Ainda não me surgiu nenhuma ideia de como realizar isso usando as ferramentas nativas do Excel, mas tenho a solução usando uma função personalizada.
Insira o código abaixo em algum módulo da planilha:
Public Function VALORESDOVETOR(vArray As Variant, _
Optional lSize As Long, _
Optional sSeparator As String = ", ") As Variant
Dim v As Variant
Dim lCount As Long
Dim asOut() As String
If lSize < 0 Then
VALORESDOVETOR = CVErr(xlErrNum)
Exit Function
End If
For Each v In vArray
If v <> "" Then
lCount = lCount + 1
ReDim Preserve asOut(1 To lCount)
asOut(lCount) = v
If lCount = lSize Then Exit For
End If
Next v
VALORESDOVETOR = Join(asOut, sSeparator)
End Function
Então, através de uma fórmula matricial com a função EXT.TEXTO é possível gerar uma matriz com cada caractere do texto, que então utilizando essa função personalizada do código, VALORESDOVETOR, é possível agrupar os elementos da matriz com o espaçamento. Supondo que o texto esteja na célula A1, você pode aplicar na célula B1 a fórmula matricial:
=VALORESDOVETOR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1);;" ")
Essa fórmula deve ser inserida com CRTL+SHIFT+ENTER.
Se me surgir alguma ideia de outra alternativa volto a postar.
Abraços!
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 06/05/2015 6:41 am