Se desejar uma solução mais avançada, crie um módulo no VBA e cole o código abaixo:
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
Isso é uma função personalizada que você poderá aplicar na planilha para gerar seu texto. Use a fórmula matricial abaixo, que deve ser inserida com CRTL+SHIFT+ENTER suponde que o texto está em A1:
=VALORESDOVETOR(SE(ÉERROS(VALOR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1)));"";EXT.TEXTO(A1;LIN(INDIRETO("1:"&(NÚM.CARACT(A1))));1));;"")
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 : 23/07/2015 12:29 pm