数字を読んで別シートに書き込んでいく

質問

シート１のD行の２列目から空白セルはなく数字が
いくつかあります　２　６７　５８９　という風に
（この数字な毎回変わります）

この数字を基にしてシート２の　
B列の（数字+I）セルつまりB3　B68　B590に
「欠」という文字を書き込みたいのですが
マクロの記述をどのようにしたらいでしょうか？
（エクセル2002　OSはXP）

for nextを使うのではないか？
ということまでしか思いつかず
具体的な記述ほうほうが分かりません

回答No.1

rio_d · ベストアンサー

おはようございます。

D2から書かれている数字の個数が決まっていればFor-Nextで良いのですが、個数が決まっていない場合はDo-Loopの方が使いやすいです。
こんな感じです。

i=2
Do Until Sheets("Sheet1").Cells(i,4)=""
　Sheets("Sheet2").Cells(2, _
　　　　Sheets("Sheet1").Cells(i,4)+1) = "欠"
　i=i+1
Loop

●Do Until (条件) ～Loop
条件がTrueになるまで繰り返します。
●Do While (条件) ～Loop
条件がFalseになるまで繰り返します。

お礼

回答ありがとうございました！

Loopをはじめて使うことができました
非常に勉強になりました
またなにかありましたら
宜しくお願いします！