人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

特定の範囲の黒丸(●)を、指定したセルの文字列に置換したい。
ただいま、以下のようにデータが並んでいるとします。
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のマクロで処理したいのですが。
よろしくお願いします。


●質問者: moon-fondu
●カテゴリ:コンピュータ 学習・教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●300ポイント ベストアンサー

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

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

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


moon-fonduさんのコメント
うまくいきました! ありがとうございます。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ