菜鸟请教，如何用EXCEl VBA 编写一段宏实现数据的输入功能？

2024-11-05 02:02:57

推荐回答（1个）

回答1：

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