将excel中的一个工作表按照某列拆分成多个sheet工作表

最新推荐文章于 2025-10-21 23:12:01 发布

原创

最新推荐文章于 2025-10-21 23:12:01 发布 · 2.8w 阅读

收录于

当前文章被以下社区和专栏收录：

如何将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 <> self.<