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

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

エクセルにて

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

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

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

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

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

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

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

質問者からの補足コメント

• 画像を一度添付しましたが、小さく、見ることができないとのことでしたので、後ほど修正した画像を再添付いたします。申し訳ございません。

    補足日時：2018/07/21 17:25

• 画像を再添付いたします。

  
    補足日時：2018/07/21 17:33

No.5 ベストアンサー 回答者： tom04 回答日時： 2018/07/21 19:22

こんばんは！

画像は5行目からのデータになっていますが、
質問文はA2となっていますよね。

とりあえず質問文通りA2セル以降にデータがある場合の一例です。

Sub Sample1()
　Dim i As Long
　Dim myStr As String, str1 As String, str2 As String
　　str1 = "送料無料"
　　str2 = "手数料無"
　　　For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
　　　　myStr = Cells(i, "A")
　　　　　If InStr(myStr, str1) > 0 Then
　　　　　　myStr = Replace(myStr, str1, "") & "A"
　　　　　Else
　　　　　　myStr = myStr & "a"
　　　　　End If
　　　　　If InStr(myStr, str2) > 0 Then
　　　　　　myStr = Replace(myStr, str2, "") & "A"
　　　　　Else
　　　　　　myStr = myStr & "a"
　　　　　End If
　　　　Cells(i, "A") = myStr
　　　Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

実行した結果、思うとおりに処理できました！ありがとうございます！本当に助かりました！

お礼日時：2018/07/21 19:34

No.3 回答者： vide 回答日時： 2018/07/21 19:12

[Windowsマーク][Windows アクセサリ][Snipping Tool]で画面キャプチャして、補足に画像添付してください。

※投稿前に [確認する] でつぶれが無いか画像サイズをよく確認して、[投稿する] で投稿してください。つぶれがある場合は、フォントサイズを小さくするか、行列数を少なくするなど調整してください。

No.2 回答者： めぐみん_ 回答日時： 2018/07/21 19:02

No.1です。

例えば例題だけなら

Sub megu()

With Range("A2")

.Value = .Value & IIf(InStr(.Value, "送料無料") > 0, "A", "a")
.Value = .Value & IIf(InStr(.Value, "手数料無") > 0, "A", "a")
.Value = Replace(Replace(.Value, "送料無料", ""), "手数料無", "")

End With

End Sub

でもこれなら直ぐに回答が付くと思うのですが、画像との関係がわからないですよね。

No.1 回答者： めぐみん_ 回答日時： 2018/07/21 18:04

例題のセルと画像がリンクしていませんし、何よりセル範囲について記載がないように思いますよ。

例題のコードだけでよいと言う事でしょうか？
・『含む』『含まない』についてInStrで0以上か否かで判断できるでしょう。
・削除については『含む』『含まれない』に関わらずReplaceで置換できるかと。