Se a guia NAMES for assim:
John
Michael
James
Larry
Moe
Curley
Mike
e a célula A1 na guia de dados é como:
I will invite Mike and John
Em B1 da aba de dados, digite:
=namelister(NAMES!A1:A100,'Data Export'!A1)
Em um módulo padrão, insira a seguinte UDF :
Public Function NameLister(r1 As Range, r2 As Range) As String
Dim Sentence As String
NameLister = ""
Sentence = r2.Text
For Each r In r1
v = r.Text
If v <> "" Then
If InStr(1, Sentence, v) > 0 Then
If NameLister = "" Then
NameLister = v
Else
NameLister = NameLister & ", " & v
End If
End If
End If
Next r
End Function
B1 será exibido:
John, Mike