マクロ 繰り返し処理について

質問

マクロの繰り返し処理についておたずねします。

A1～A10に数値、B１～B１０にも数値が入っているとします。

C1にA1の数値×B1の数値、C２にA2の数値×B２の数値が入るというように

繰り返し処理を行うにはどうすればよいでしょうか。

A１１以降は空白なのでC１０にA１０×B１０の数値が入ってそこで計算が止まるようにしたいと思い

ます。例としてA１０まで数値を入れましたが条件に一致する間（A列のセルが空白でない）は処理を

繰り返す方法をおたずねします。DO　While．．Loopが適当と思いますが中々うまくいきません。

ご回答よろしくお願いします。

回答No.1

mu2011 · ベストアンサー

一例です。

Sub aaa()
Dim i As Long
(例１）
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 3) = Cells(i, 1) * Cells(i, 2)
i = i + 1
Loop

'(例２）
For i = 1 To 10
Cells(i, 3) = Cells(i, 1) * Cells(i, 2)
Next
End Sub

お礼

早速のご返答ありがとうございました。
実際にやってみたところ、うまくいきました。非常にシンプルで良いと思います。参考書などを見ましたが今ひとつ解らなかった所、すぐに答えていただきましてありがとうございました。マクロは普段あまり使わないので苦手部分です。これから勉強していきたいと思います。