如何把一个excel多个表分开

发布网友 发布时间：2022-04-24 01:53

我来回答

共1个回答

热心网友 时间：2023-10-20 03:29

步骤如下：
1、打开有需要拆分的工作表；
2、右击任意工作表名称；

3、在弹出的对话框中点击查看代码；

4、在空白的代码框中粘贴下列代码（红色部分）：
Sub 工作薄拆分()
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.NAME & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Next
End Sub
5、保存这个代码

6、按F5或者点击上图中那个绿色三尖角按键运行Sheet1.工作薄拆分

7、等待执行一会儿表格就拆分好了。

热心网友 时间：2023-10-20 03:29

步骤如下：
1、打开有需要拆分的工作表；
2、右击任意工作表名称；

3、在弹出的对话框中点击查看代码；

4、在空白的代码框中粘贴下列代码（红色部分）：
Sub 工作薄拆分()
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.NAME & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Next
End Sub
5、保存这个代码

6、按F5或者点击上图中那个绿色三尖角按键运行Sheet1.工作薄拆分

7、等待执行一会儿表格就拆分好了。

热心网友 时间：2023-10-20 03:29

步骤如下：
1、打开有需要拆分的工作表；
2、右击任意工作表名称；

3、在弹出的对话框中点击查看代码；

4、在空白的代码框中粘贴下列代码（红色部分）：
Sub 工作薄拆分()
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.NAME & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Next
End Sub
5、保存这个代码

6、按F5或者点击上图中那个绿色三尖角按键运行Sheet1.工作薄拆分

7、等待执行一会儿表格就拆分好了。