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

您所在的位置：网站首页 › 一个表格如何拆分为两个文件夹 › Excel拆分多个表格，并保存多个文件，（xlsx或者csv格式）

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

2024-07-10 20:26| 来源: 网络整理| 查看: 265

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

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

【本文地址】

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

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

今日新闻

推荐新闻