A maneira de contornar isso é incluir uma função personalizada no Excel para calcular o resultado para você. Inclua o seguinte código em um novo módulo no VBA. Pressione Alt + F11 para abrir o Editor do Visual Basic e clique em Inserir - > Módulo. Cole o seguinte código ind o novo módulo e feche o Editor do Visual Basic novamente.
Function MatchCriteria(ID As Range, REF As Range) As String
Dim Cell As Range
Dim Str As String
For Each Cell In REF
If Cell.Value = ID.Value And Cell.Row <> ID.Row Then
If Str = vbNullString Then
Str = Cells(Cell.Row, ID.Column).Value
Else
Str = Str & ", " & Cells(Cell.Row, ID.Column).Value
End If
End If
Next Cell
MatchCriteria = Str
End Function
Agora você pode usar essa função como visto na figura a seguir.
AprimeiraentradanafunçãodefineoIDeasegundaentradadefineoseu"referenciado por coluna". Observe que na minha versão do excel (dinamarquês) o delimitador de entrada é " ;
. Se você estiver usando uma versão em inglês do Excel, deverá usar uma vírgula, ,
.