Excel 添加一个按钮，如何能够实现点击按钮，Sheet1!A1单元格的数据自动转到Sheet2!A1单元格，并且保存。

可以不用添加按钮

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Row * ActiveCell.Column = 2 Then '使用Enter或Tab切换

'sheet1 Cells(1, 1)单元格为空 退出程序
If Len(Sheets("sheet1").Cells(1, 1)) = 0 Then GoTo endsub
'查找sheet2中空白单元格
Do While Len(Sheets("sheet2").Cells(1 + i, 1)) <> 0
i = i + 1
Loop
'用sheet1中cells（1,1）的内容填充查找到的空白单元格
Sheets("sheet2").Cells(1 + i, 1) = Sheets("sheet1").Cells(1, 1)

endsub:
'选择sheet1 cells（1,1）便于继续输入内容
Sheets("sheet1").Cells(1, 1).Select
End If

End Sub