Excel VBA小程序01

按Alt+F11，打开VBA编辑器，在代码窗口中粘贴代码。
然后关闭VBA编辑器，返回Excel界面，然后按Alt+F8打开“宏”对话框，选择对应宏执行即可。 
这四段代码大同小异，实现不同功能本质上只替换代码主体即可。
以下代码将每个所选的工作表单独保存为一个工作簿，存放位置与原工作簿路径相同，名称为“工作表名称.xlsx”。

1、保存全部表格，保留全部格式

Sub Save_All()

Dim Sh As Worksheet

Dim wb As Workbook

Dim cPath$

cPath = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False

Application.EnableEvents = False

Application.DisplayAlerts = False

For Each sht In ThisWorkbook.Worksheets

sht.Copy

theName = sht.Name & ".xlsx"

ActiveWorkbook.SaveAs Filename:=cPath & "\" & theName, FileFormat:=xlNormal

ActiveWindow.Close

Next

Application.EnableEvents = True

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

2、保留特定表格，保留全部格式

Sub Save_Special_Sheet()

Dim Sh As Worksheet

Dim wb As Workbook

Dim cPath$

cPath = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False

Application.EnableEvents = False

Application.DisplayAlerts = False

Sheets("特定表格1").Select

theName = "特定表格1.xlsx"

ActiveWorkbook.SaveCopyAs cPath & "\" & theName

Sheets("特定表格2").Select

theName = "特定表格2.xlsx"

ActiveWorkbook.SaveCopyAs cPath & "\" & theName

Application.EnableEvents =