一个excel按列拆分多个sheet

Posted 2023-04-16

参考技术A 一个Excel按列拆分成多个Sheet，一般采用以下两种方法：
第一种：手动进行复制粘贴创建；
第二种：利用VBA编程处理

如何把excel的多个sheet拆分成多个excel文件

如：123.xls含有三个sheet分别为a、b、c；拆分成a.xls、 b.xls、 c.xls，拆分后的a.xls、 b.xls、 c.xls含有相同名称的sheet
Sub Macro1()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
这个可以实现部分

Sub Macro1()
Dim sht As Worksheet
Dim shtName As String
shtName = "Sheet1" '将引号中的字符更改为你想要的名字

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.Sheets(1).Name = shtName
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub 参考技术A

以WPS 2019版本为例：

关于如何把excel的多个sheet拆分成多个excel文件，您可使用WPS参考下述步骤完成操作：

1、打开「表格（Excel）」文档；

2、点击「数据-拆分表格」；

3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。

官方电话官方服务
官方网站