問1の解答例 - お勉強サイト

Sub 自動計算()
Dim num As Integer

num = Range("C2").End(xlDown).Row

For i = 2 To num

   Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value

Next i

End Sub