EXCEL - ¿Cómo puedo copiar en una celda todas las palabras que comienzan con cadenas específicas? [cerrado] - excel, vba, excel-vba

Tengo una hoja de Excel llena de palabras y oraciones (en ciertas celdas podemos tener varias palabras). Necesito copiar en una celda todas las palabras que comienzan, por ejemplo, con XXX.

¿Tienes una secuencia de comandos VBA para hacer esto rápidamente?

Gracias.

Respuestas

Pruebe el siguiente 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 ejemplo:

Esto supone que las palabras en una celda están separadas por un solo espacio.

Puede utilizar la función InStr (), sheck out este enlace para más información; Este es un buen comienzo para señalarle en la dirección correcta.

Ejemplo

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