Apenas para complementar, eu possuo uma função em VBA que se chama ConcatenarSE. Segue o código se alguém ainda não conhecer.
Public Function ConcatenarSE(Intervalo_Criterio As Range, _
Criterio As Variant, _
Intervalo_Concatenado As Range, _
Separador As String) As String
If Intervalo_Criterio.Cells.Count <> Intervalo_Concatenado.Cells.Count Then
ConcatenarSE = "Dimensões inválidas"
Exit Function
End If
Dim i As Integer
Dim arCriterios() As Variant
Dim arDados() As Variant
Dim temp As String
i = Intervalo_Criterio.Cells.Count
ReDim arCriterios(1 To i)
ReDim arDados(1 To i)
i = 1
For Each Cell In Intervalo_Criterio
arCriterios(i) = Cell
i = i + 1
Next
i = 1
For Each Cell In Intervalo_Concatenado
arDados(i) = Cell
i = i + 1
Next
For i = 1 To i - 1
If arCriterios(i) = Criterio Then
If temp = "" Then
temp = arDados(i)
Else
temp = temp & Separador & arDados(i)
End If
End If
Next
ConcatenarSE = temp
End Function
Ai com ele é só utilizar a função na célula:
ConcatenarSE(Células que usará o critério;
Criterio;
Células que serão concatenadas;
Separador) O separador pode ser virgula, espaço, hífen, qualquer texto que você queira separar os itens concatenados.
Pietro Farias
Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.
ANALISTA X
Postado : 02/03/2017 1:41 pm