Vba EXCEL-如何在单元格中复制以特定字符串开头的所有单词？

我有一张Excel表格，里面有很多单词和句子（在某些单元格中，我们可以有几个单词）。 我需要在单元格中复制所有以XXX开头的单词

您是否有VBA脚本来快速执行此操作

谢谢。

您可以使用InStr（）函数，查看更多信息；这是一个良好的开端，为您指明了正确的方向

示例

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

请尝试以下自定义项：

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

公共函数XXX（v作为字符串）作为字符串
ary=拆分（v，“”）
对于i=LBound（ary）到UBound（ary）
如果左（ary（i），3）“XXX”，则ary（i）=“
接下来我
XXX=Application.WorksheetFunction.Trim（Join（ari）（“”）
端函数

例如：

---

这假设单元格中的单词由单个空格分隔。

我们不提供代码。你能告诉我们你是如何实现你的代码的吗？您也可以阅读>作品完美，谢谢！