特定の範囲の黒丸(●)を、指定したセルの文字列に置換したい。

ただいま、以下のようにデータが並んでいるとします。
1 G列
2 (空白セル)
3 ● あいうえお
・・・
24 ● かきくけこ
25 (空白セル)
26 (空白セル)
27 ● あいうえお
・・・
48 ● さしすせそ
49 (空白セル)
50 (空白セル)
51 ● あいうえお
・・・
72 ● たちつてと
73 (空白セル)
74 (空白セル)
75 ● あいうえお
・・・

そして、J列の25行目には「りんご」、J列の49行目には「ごりら」、J列の73行目には「らっぱ」という文字列が入っております。
ここにおきまして、G列3行目〜24行目の黒丸はJ列25の「りんご」に、G列27行目〜48行目の黒丸はJ列49行目の「ごりら」に、G列51行目〜72行目の黒丸はJ列73行目の「らっぱ」に、置換したいのです。
そしてこの置換処理を、15000行ほどまで行いたいです。
G列は3行目から始まり、21行+空白セル2行毎に置換ワードが変わり。
J列は25行目から始まり、24行毎に、G列の指定エリアの黒丸に置換していくワードが変わるという。
規則性がありますので、何とかExcelのマクロで処理したいのですが。
よろしくお願いします。

回答の条件
  • 1人5回まで
  • 登録:2014/11/09 17:11:05
  • 終了:2014/11/11 05:57:51

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912014/11/09 22:57:11

ポイント300pt

説明文とサンプルで空白行がずれている気がしますが、サンプルが正としての例です。

Sub Sample()
    Dim r As Long
    For r = 25 To Cells(Rows.Count, "J").End(xlUp).Row Step 24
        If Cells(r, "J").Value <> "" Then _
            Cells(r - 22, "G").Resize(22).Replace "●", Cells(r, "J").Value, lookat:=xlPart
    Next
End Sub

異なっている場合は、行数や周期を調整してください。

id:moon-fondu

うまくいきました!
ありがとうございます。

2014/11/11 05:57:41

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません