ただいま、以下のようにデータが並んでいるとします。
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のマクロで処理したいのですが。
よろしくお願いします。
No.1
1314
393
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
異なっている場合は、行数や周期を調整してください。
1
1
1
3
2
1
1
236
235
うまくいきました！
2014/11/11 05:57:41ありがとうございます。