如何将excel中的一个工作表按照某列拆分成多个sheet工作表呢?接下来就利用VBA工具来解决这个问题。
拆分之前的工作表:
拆分之后的工作表:
操作步骤具体如下:
第一步:打开需要拆分的表格文件:点击“开发工具—>查看代码”命令,如图所示:
第二步:右击“WPS表格对象—>插入—>模块”命令,如何所示:
第三步:在新建的“模块1”中粘贴VBA代码:如图所示:
具体代码如下:
Option Explicit
Option Base 1
Sub 按指定列分组拆分数据()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim self As Worksheet
Set self = ActiveSheet
Dim nLastRowNum As Long
Dim nLastColumnNum As Long
Dim i As Long
' 删除其他的sheet
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name</