• ベストアンサー

マクロについて教えて下さい

A1~A10までの縦のセルにA・B・D・Eとアルファベットが並んでいます。Bは3回でてくるのですが、上から順番にB1・B2・B3と変換することは可能でしょうか?変数の意味がまだよくわかりません。 その後は次はB1~B10とC1~C10と繰り返しで行うようにすることはできますか? 教えて下さい。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

Private Sub test() Dim i, j, l As Integer For i = 1 To 3 l = 1 For j = 1 To 10 If Cells(j, i) = "B" Then Cells(j, i) = "B" & l l = l + 1 End If Next j Next i End Sub うちで試してみたところ添付画像のようになりましたけど、こんなんでどうです?

isikawaK
質問者

お礼

まさにその通りです。 画像まで丁寧に添付していただきありがとうございます。 これからもっと勉強してマクロに強くなりたいと思います。 今後もご協力宜しくお願いします。