Question

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

Sheet1!A1单元格是公式得出的数据，但转到Sheet2!A1时自动变成数值，就算把Sheet1!A1单元格删除，Sheet2!A1单元格的数值依然存在！
继续补充：点击按钮后，Sheet1!A1单元格的数值没有发生变化时，无论点击多少次都只转一次数据到Sheet2!A1单元格，
当Sheet1!A1单元格发生变化后，再点击按钮数据将保存到Sheet2!A2单元格，
下一次操作就保存到Sheet2!A3单元格......
依次类推！

Answer 1

可以不用添加按钮

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

追问

我要的是需要添加按钮的,我在上面写的很清楚了,可以按照上面要求做吗?

追答

其实按钮就是一个触发事件的工具 你把上面代码放到你的按钮的click事件中就可以了

Private Sub CommandButton1_Click()

'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)

'清空sheet1 cells(1,1) 避免重复输入
Sheets("sheet1").Cells(1, 1) = ""

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

End Sub