Excel 添加一个保存按钮，如何能够实现点击按钮后。

Question

Excel 添加一个保存按钮，如何能够实现点击按钮后，将Sheet1的所有数据保存到Sheet2,下次保存自动换行,并清除Sheet1填充内容。

Answer 1

录制一个宏，然后在视图－工具栏－窗体上找到命令按纽，在工作表上做一个按纽，右键选指定宏，指定刚才录制的宏即可。追问

谢谢！我是新手,请问程序

追答

程序代码可以录制,,点工具－宏－录制新宏，按要求操作即可，如果录制的宏不能满足要求，可根椐需要修改一下即可．

本回答被网友采纳

Answer 2

Private Sub CommandButton1_Click()
Sheets("Sheet2").Select
Worksheets("Sheet2").Rows(2).Select
Selection.Insert Shift:=xlDown
Worksheets("Sheet2").Range("A2") = Worksheets("Sheet1").Range("J2")
Worksheets("Sheet2").Range("B2") = Worksheets("Sheet1").Range("L1")
Worksheets("Sheet2").Range("C2") = Worksheets("Sheet1").Range("J3")
Worksheets("Sheet2").Range("D2") = Worksheets("Sheet1").Range("N3")
Worksheets("Sheet2").Range("E2") = Worksheets("Sheet1").Range("B1")
Worksheets("Sheet2").Range("F2") = Worksheets("Sheet1").Range("N2")
Worksheets("Sheet2").Range("G2") = Worksheets("Sheet1").Range("B2")
Worksheets("Sheet2").Range("H2") = Worksheets("Sheet1").Range("H1")
Worksheets("Sheet2").Range("I2") = Worksheets("Sheet1").Range("I1")
Sheets("Sheet1").Select
End Sub
’只是一个样子你看一下学一学，也可以加入循环。