按以下步骤进行操作:
1、在sheet1表中插入一个按钮后,弹出指定宏窗口,将宏名命名为Macro1再点击新建。
2、点新建后界面跳转到VB编辑窗口,把里面已有的代码全部删除,再把以下代码复制粘贴进去。
Sub Macro1()
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
3、关闭VB编辑窗口,界面跳转回sheet1表界面。
4、移动鼠标到按钮上,鼠标变成小手,点击它,即可将sheet1表的全部数据保存到sheet2表中。
如果是固定的Shhet2另存为,很简单:
1、按Ctrl+F11,放入下面代码:
Sub 另存()
Sheets("Sheet2").Select
Sheets("Sheet2").Copy
ActiveWorkbook.SaveAs Filename:="在此输入存放位置的路径 \ 在此输入另存的名字.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
2、在Sheet1插入一个控件——右键——指定宏为刚才建立的宏。
注:“在此输入存放位置的路径 \ 在此输入另存的名字.xlsx" 这里要分别设置存放路径和名称。
开发工具中插入一个控件,然后指定宏。宏的内容就是将sheet1数据保存到sheet2中。