Question

vba 命令按钮点击运行一次循环,目的达到点击按钮复制A1的公式复制到A2，并将A1的结果转化为数值

然后再次点击按钮，就将A2的公式复制到A3,将A2的公式结果转化为数值 以此类推
SUB 循环()
for i = 7 to 32
IF .range ("A" & I & ":" & "C" & I).hasformula then
Range("A" & I & ": " & "C" & I).Select
Selection.AutoFill Destination:=Range("A" & I & ": " & "C" & I + 1), Type:=xlFillDefault
Range("A" & I & ": " & "C" & I + 1).Select
Range("A" & I & ": " & "C" & I).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end if
next
end sub

Answer 1

sub fuzhi（）
a=cells（1，1）
cells（2，1）=a

end sub

追问

点击按钮复制A1的公式复制到A2，并将A1的结果转化为数值
然后再次点击按钮，就将A2的公式复制到A3,将A2的公式结果转化为数值.....
直接到A32就结束
您知道怎么更改这个代码吗

追答

公式是什么

追问

实际一行有多个公式。切都挺复杂的。在代码里面详细编写来运行不是很现实。所以想问有没有其他代码可以达到目的

追答

application.sum（.range（“A1：A9”））

这样写公式就行了