Como posso copiar em uma célula todas as palavras que começam com strings específicas? [fechado] - excel, vba, excel-vba

Eu tenho uma planilha do Excel cheia de palavras e frases (em certas células, podemos ter várias palavras). Eu preciso copiar em uma célula todas as palavras começando por exemplo com XXX.

Você tem um script VBA para fazer isso rapidamente?

Obrigado.

Respostas:

Tente o seguinte UDF:

Public Function XXX(v As String) As String
ary = Split(v, " ")
For i = LBound(ary) To UBound(ary)
If Left(ary(i), 3) <> "XXX" Then ary(i) = " "
Next i
XXX = Application.WorksheetFunction.Trim(Join(ary, " "))
End Function

Por exemplo:

Isso pressupõe que as palavras em uma célula são separadas por um único espaço.

Você pode usar a função InStr (), sheck out esse link Para maiores informações; este é um bom começo para apontar na direção certa

Exemplo

If (InStr(1, "FIND", "FIND WORK")) Then
Msgbox "Found the work: "FIND", within the string "FIND WORD"", , ""
Else
MsgBox "Word was not found", , ""
End If