怎样用VB填入公式并自动下拉,得到计算结果后,只显示最终计算结果?
发布网友
发布时间：2024-10-22 00:55
共1个回答
热心网友
时间：2024-11-09 22:09
在下面加上三条代码 就可以，你拷贝下面这段子程序试试：
Sub 计算()
Range("A1").Formula = "=B1+100"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A10")
For Each e In Range("A1:A10")
e.Value = e.Value
Next
End Sub
