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

1、出现对话框，要求输入第一个数据，确定后再提示输入第二个数据。然后将上两个数据相乘，三个数据分别存放到工作表的A2、B2和C2上面。

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pp2ps4fv4.html