2017-10-23 28 views
-2

私は、単語と文がいっぱいのExcelシートを持っています(特定のセルにはいくつかの単語があります)。 例えばXXXで始まるすべての単語をセルにコピーする必要があります。EXCEL - 特定の文字列で始まるすべての単語をセルにコピーするにはどうすればよいですか?

これを迅速に実行するためのVBAスクリプトはありますか?

ありがとうございます。

+1

私たちはコードを提供していません。コードの実装方法を教えてください。また、あなたは> [なぜ誰かが私を助けることができるのですか?実際の質問ではありませんか?](https://meta.stackoverflow.com/questions/284236/why-is-can-someone-help-me-not-実際の質問) –

答えて

0

試してみてください、次のUDFは良いスタートですこれは、tセル内の言葉は単一のスペースで区切られています。

+0

完璧に動作します、ありがとう! – Ananas

0

詳細については、this linkを参照してください。InStr()関数を使用することができます。例えば

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 

enter image description here

これは正しい方向を指すように

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 
関連する問題