Excel拆分多个表格，并保存多个文件，（xlsx或者csv格式）

最新推荐文章于 2024-07-29 10:39:12 发布

原创

最新推荐文章于 2024-07-29 10:39:12 发布 · 4.3k 阅读

8 ·

CC 4.0 BY-SA版权

文章标签：

#excel

这篇博客介绍了如何使用VBA将一个包含多个部门的Excel工作表拆分为单独的工作表，并将这些子表保存为独立的.xlsx文件。接着，博主分享了如何批量将这些.xlsx文件转换为.csv格式，详细步骤包括进入VBE编辑页面、编写和执行代码。整个过程方便快捷，适合需要处理大量数据拆分和转换的场景。

> 第一部分一表拆为多个子表单

以下涉及代码转自https://blog.csdn.net/qq_41554671/article/details/87621830?ops_request_misc=%257B%2522request%255Fid%2522%253A%2522164154989716780264010798%2522%252C%2522scm%2522%253A%252220140713.130102334…%2522%257D&request_id=164154989716780264010798&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2_allbaidu_landing_v2~default-1-87621830.first_rank_v2_pc_rank_v29&utm_term=Excel%E6%8B%86%E5%88%86%E5%A4%9A%E4%B8%AA%E5%AD%90%E8%A1%A8&spm=1018.2226.3001.4187

一、原始数据表如下（sheet页名称为：数据源），需要根据A列部门拆分成每个部门一个工作表。
在这里插入图片描述
二、进入VBE编辑页面（4种途径）

通过【开发工具】>>【查看代码】进入编辑页面
通过【开发工具】>>【visual Basic】进入编辑页面
通过【右击】sheet页名称，选择【查看代码】进入编辑页面
通过ALT+F11进入编辑页
（图为第2种）
在这里插入图片描述
三、插入一个新的模块

四、在模块1窗口粘入如下代码 ,并保存

Sub CFGZB()
    Dim myRange As Variant
    Dim myArray
    Dim titleRange As Range
    Dim title As Variant
    Dim columnNum As Integer
    myRange = Application.InputBox(prompt:="请选择标题行：", Type:=8)
    myArray = WorksheetFunction.Transpose(myRange)
    Set titleRange = Application.InputBox(prompt: