エクセル - どのように特定の文字列で始まるすべての単語をセルにコピーできますか？ [閉じた] - エクセル、エクセル、エクセル

私は単語と文章でいっぱいのExcelシートを持っています（特定のセルでは複数の単語を持つことができます）。 たとえばXXXで始まるすべての単語をセルにコピーする必要があります。

これを素早く実行するためのVBAスクリプトはありますか。

ありがとうございました。

回答：

次の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

例えば：

これは、セル内の単語が単一のスペースで区切られていることを前提としています。

あなたは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