dim num%
for num = 3 to 30
If CheckBox1.Value = True Then
Range("F"&num) = "=A"&num&"*E"&num
Else: Range("F"&num) = "0"
End If
next num
End Sub
這是用for循環,從3-30行,想要多少行,修改30就行。
還可以加入壹個窗體,運行代碼時,從窗體輸入從多少行到多少行,自己捉摸壹下。
不知道妳的目的,但還是想說壹句,可以用公式的地方不建議用VBA。