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

Question

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

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

谢谢。

Answer 1

您可以使用InStr（）函数，查看this link以获取更多信息;这是指向正确方向的良好开端

示例

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

Answer 2

尝试以下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

例如：

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