エクセルの関数・マクロについて

質問

※以前質問させていただきましたが、抜けていた項目がありましたので、補足して再度質問です。

エクセルにて

下記のような事例を、関数やマクロを使用し、
実行することが可能でしょうか？

また可能であれば方法をご教授ください！

例）A2セル内文字列に
1.「 送料無料 」と「 手数料無 」が含まれている場合、
→「 送料無料 」と「 手数料無 」を削除し、A2セル内の文末に「 AA 」を表示

2.「 送料無料 」のみ含まれており、「 手数料無 」が含まれていない場合、
→「 送料無料 」を削除し、A2内の文末に「 Aa 」を表示

3.「 送料無料 」が含まれておらず、「 手数料無 」のみ含まれている場合、
→「 手数料無 」を削除し、A2内の文末に「 aA 」を表示

4.「 送料無料 」と「 手数料無 」の両方が含まれていない場合、
→A2内の文末に「 aa 」を表示

よろしくお願いいたします。

回答No.1

watabe007 · ベストアンサー

>例）A2セル内文字列に
参考に
Sub Test()
　　Dim myStr As String, add As String
　　myStr = Range("A2").Value
　　If InStr(myStr, "送料無料") And InStr(myStr, "手数料無") Then
　　　　add = "AA"
　　ElseIf InStr(myStr, "送料無料") Then
　　　　add = "Aa"
　　ElseIf InStr(myStr, "手数料無") Then
　　　　add = "aA"
　　Else
　　　　add = "aa"
　　End If
　　myStr = Replace(myStr, "送料無料", "")
　　myStr = Replace(myStr, "手数料無", "")
　　Range("A2").Value = myStr & add
End Sub

お礼

ありがとうございます！思うとおりの結果に処理できました！