Sub 计算()
Dim a&, b&, c&, R&
a = InputBox("请输入数字1", "乘数")
b = InputBox("请输入数字2", "乘数")
c = a * b
R = Range("A65536").End(xlUp).Row + 1
Cells(R, 1) = a
Cells(R, 2) = b
Cells(R, 3) = c
End Sub
此宏当您第一次输入时保存在A2行
再次运行宏时，保存在A3行，
也就是说顺序保存在最后一行之下
如果只需要存于A2、B2、C2修改如下
Sub 计算()
Dim a&, b&, c&
a = InputBox("请输入数字1", "乘数")
b = InputBox("请输入数字2", "乘数")
c = a * b
Cells(2, 1) = a
Cells(2, 2) = b
Cells(2, 3) = c
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024