特定の文字が入っている場合に、他の列に文字を追加したい。

Question

実現したいこと

D列に特定の文字が入っている場合のみ、C列に対して決まった文字の追加をしたいです。
現在C列にはすでに文字が入っており、その後ろに文字の追加をしたいと考えています。

画像のような、D列に"高級"と明記されている場合のみ、C列の付随するセルの後ろに"A5"というような文字列を追加したいです。それ以外のセルは今ある文字列のまま表示したいです。(文字色は黒のままで大丈夫です)

試してみたこと

以下のようなことは試してみたのですが、これでは指定したセルにのみ対処することができずにこまっています。
先日から勉強し始めたばかりですので、至らぬ点があれば随時ご教授いただければと思います。

Sub rensyuu()
   If Cells(4, "D").Value = "高級" Then
        Cells(4, "C").Value = Cells(4, "C").Value & "A5"
    End If
End Sub

```****

Comments

[meg_]

途中でも良いのでコードを追記してください。

[kei_02]

申し訳ございませんでした。試したくてもどのようにすればよいかわからず困っていまいた。
やってみたことを記載させていただきましたので、ご確認いただけたらと思います。
貴重なご意見ありがとうございます。

[itagagaki]

For～Next文で繰り返しの処理をしましょう。
こちらがわかりやすいと思います。
https://tonari-it.com/excel-vba-for-next/

[Yoshi88]

条件を確認しますが、決まった文字の追加は、”1回限り”　で、繰り返して処理されることは　ＮＧ なのでしょうか？
もし、プログラムを実行するたびに文字を追加しても良いなら　"いちごA5A5A5"という結果もＯＫになってしまいます。
この、”1回限り”　の条件によって、やり方は変わってくるかと思います。

[kei_02]

itagagaki様
ありがとうございます。
確認させていただきます。

[kei_02]

Yoshi88様
ご指摘にあります通り、文字の追加は"1回限り"で想定しておりました。
ご意見ありがとうございます。

Answer 1

文字の追加は"1回限り"で想定しておりました。

これも考慮しました。
Do Loop を使った例です。

Sub rensyuu()
   Dim r As Long
   r = 3
   Do until Cells(r,"D")=""
       If Cells(r, "D").Value = "高級" And Not Cells(r, "C").Value Like "*A5" Then
           Cells(r, "C").Value = Cells(r, "C").Value & "A5"
       End If
       r= r + 1
   Loop
End Sub

Comments

[kei_02]

ご回答ありがとうございます。
おかげさまで解決いたしました。ありがとうございます！

Answer 2

Sub rensyuu()

   Dim rownum as Integer
   Dim i as Integer

   rownum = Cells(1,"D").End(xldown).Row

   For i=2 To rownum
       If Cells(i, "D").Value = "高級" Then
            Cells(i, "C").Value = Cells(i, "C").Value & "A5"
       End If
   Next i

End Sub

Comments

[kei_02]

参考にさせていただきます！ありがとうございました。