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

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

以下涉及代码转自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