質問: 特定の文字列以降を削除する方法を教えてください。(VBA) A列(A1:A100)に文字列が入っており、ある特定の文字(複数)があったら、その文字以降全て削除するVBAコードを教えて頂ければと思います。 例 あ、い、う の文字列があったらその文字を含め以降削除する A1= ABCDあEFG → ABCD A2= ABいCDEFG → AB A3= ABCDEFうG → ABCDEF 宜しくお願いいたします。
回答: ユーザー定義関数を作る場合です。 標準モジュールにコピーしてください。 B1に =test(A1) と入力してB100までコピーしてください。 Function test(s As String) As String Dim w As Variant test = s For Each w In Array("あ", "い", "う") If test = "" Then Exit Function test = Split(test, w)(0) Next End Function