Função proposta pelo colega JLM do Forum ExcelBr
Function ProcParteDoNome(Cel1 As String, Cel2 As String) As Boolean
Dim J() As String, L() As String, M1 As Byte, M2 As Byte
Application.Volatile
J = Split(WorksheetFunction.Trim(Cel1), " ", , vbTextCompare)
L = Split(WorksheetFunction.Trim(Cel2), " ", , vbTextCompare)
ProcParteDoNome = False
For M1 = 0 To UBound(J)
For M2 = 0 To UBound(L)
If J(M1) = L(M2) Then
ProcParteDoNome = True
End If
Next M2
Next M1
End Function
' Sintaxe de Uso: =ProcParteDoNome(CélNome1; CélNome2)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/07/2015 7:43 am