把excel中的数据，按条件分割成多个文件

最新推荐文章于 2026-04-23 12:02:40 发布

原创

最新推荐文章于 2026-04-23 12:02:40 发布 · 1.7w 阅读

标签

#分割文件 #excel #按条件 #按列 #相同数据

收录于

本文介绍如何使用VBA代码将一个Excel文件中的数据根据某列的相同值拆分成多个单独的文件。代码执行后，会在当前文件同级目录创建'拆分出的表格'文件夹，所有新生成的文件都会存储在此处。针对宏可能被禁用的问题，文章提供了解决方法链接。

要求

有个excel文件，把文件中的数据按照某列，将相同的数据存为一个excel文件。

VBA代码

执行下面的代码后，会在该excel的同级目录下创建一个新文件夹“拆分出的表格”，拆分后生成的新文件会存在这个目录下。

我拆分了30个文件，大约一分钟时间。请耐心等待。
如果你感觉没有进度，你可以看一下同级目录下“拆分出的表格”文件夹中是否在缓慢生成新的文件。

Sub 拆分成多个文件()

    '输入用户想要拆分的工作表
    Dim sheet_name
    sheet_name = Application.InputBox("请输入拆分工作表的名称：")
    Worksheets(sheet_name).Select

    '输入获取拆分需要的条件列
    Dim col_name
    col_name = Application.InputBox("请输入拆分依据的列号(如A):")

    '输入拆分的开始行，要求输入的是数字
    Dim start_row As Integer
    start_row = Application.InputBox(prompt:="请输入拆分的开始行:", Type:=1)

    '暂停屏幕更新
    Application.ScreenUpdating = False

    '工作表的总行数
    Dim end_row
    end_row = Worksheets(sheet_name).Range(