excel对一段宏循环执行。

Question

A B C
10 1
10 2
10 3
total 60
想要写一个宏，让单元格C1=A1*B1，然后循环下去，C2=C2*B2，当循环到C4的时候判断B4的位置是空的，所以停止循环。然后对C4就插入C1+C2+C3的值。
上面的排版歪了
_ A B C
10 1
10 2
10 3
total 60

Answer 1

Sub time()
Application.OnTime Now + TimeValue("00:01:00"), "Savetext"
End Sub

Savetext为一个单独宏，此宏最后一句加入
Call time
样即可实现循环

Answer 2

Sub AAA()
Dim I As Long
I = Range("B65536").End(xlUp).Row
Range("C1") = "=A1*B1" '设置公式
Range("C1").Copy Range("C1" & ":C" & I) '复制公式
Range("C1" & ":C" & I).Copy '复制，然后选择性粘贴
Range("C1" & ":C" & I).PasteSpecial Paste:=xlPasteValues
Range("C" & I + 1).Value = Application.WorksheetFunction.Sum(Range("C1" & ":C" & I))‘求和
End Sub

Answer 3

sub xxx()
i=1
do while cells(i,2)<>""
cells(i,3)=cells(i,1)*cells(i,2)
t = t +cells(i,3)
i=i+1
loop
cells(i,3)=t
end sub本回答被提问者采纳