求excel 制作保存按钮代码 在固定单元格（A1)输入 点击保存按钮 依次保存到另一列（B列）

Question

假如在固定A1单元格输入数据 点击保存 自动保存到B1，再次在A1输入数据 点击保存 自动保存到B2 依次类推 每次点击保存按钮都将A1数据保存到B列的非空单元格下一格 （想自己做个简单的进销存）

Answer 1

打开VBE编辑器，插入一个模块，粘贴以下代码，在表格中添加一个窗体命令按钮控件，指定宏为保存。至于"sheet1"这个表格名称，你可以把双引号之间的sheet1替换为自己的实际表格名称。
Sub 保存()
Dim x As Integer
x = Sheets("sheet1").Range("b65536").End(xlUp).Row
Sheets("sheet1").Range("B" & x + 1) = Sheets("sheet1").Range("A1")
End Sub

Answer 2

代码如下，附件中是写好宏的文件供参考：

Sub save()
Dim r As Integer    '定义变量r为整数型变量,用于获取B列最后一个非空单元格行数
r = [b65536].End(xlUp).Row      '获取B列最后一个非空单元格的行数（如果是03以上版本的Excel，将[b65536]改成[b1048576]）
If r = 1 And [b1] = "" Then     '如果B列没有任何数据则从B1开始填充A1中数据
    [b1] = [a1]
    Exit Sub
End If
Cells(r + 1, 2) = [a1]      '如果B列中存在数据，则从非空单元格的下一单元格中填入A1中数据
End Sub

Answer 3

sub 扣号1722187970()
i=range("b65536").end(xlup).row
range("b" &i )=range("a1")
end sub

Answer 4

可以自己写一个宏代码追问

谢谢 自己能写就不用问啦