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

最新推荐文章于 2024-08-19 11:42:00 发布

猫哥，你好

最新推荐文章于 2024-08-19 11:42:00 发布

阅读量2.6w

点赞数 23

分类专栏： Excel

本文链接：https://blog.csdn.net/warticles/article/details/123639055

版权

Excel VBA 拆分工作表宏编程

关键词由CSDN通过智能技术生成

如何将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</