Excel多工作表快速拆分，同事用代码五秒搞定，你加班2小时才弄完
excel工作簿中的多个工作表，快速拆分为单个表格，这种操作相信难倒过许多朋友。工作簿中的工作表比较少的情况下，可能许多朋友就是直接新建工作表，然后复制粘贴这样来操作。但如果表格过多的情况下，这种操作就是费时费力。
如上图所示，我们需要将工作簿中的6个工作表，按照对应的工作表名称单独拆分为单个的工作簿。下面我们就来学习一下如何用代码一秒操作。
第一步：首先鼠表选中工作表名称，点击右键—查看代码，进入代码编辑窗口；或者直接按alt+f11快捷键进入代码编辑窗口，如下图所示：
第二步：进入代码编辑窗口后，鼠标点击左边的工程资源窗口，右键点击thisworkbook，选中插入模块。如下图所示：
第三步：在模块代码编辑窗口输入下方代码，如下图所示：
代码如下：
sub 多工作表拆分()
dim wk as workbook, ss$, k%
application.displayalerts = false
for each sht in thisworkbook.sheets
set wk = workbooks.add
k = k + 1
thisworkbook.sheets(k).copy workbooks(2).sheets(1)
ss = thisworkbook.path & \ & sht.name & .xlsx
wk.saveas ss
wk.close
next
application.displayalerts = true
msgbox 多工作表拆分完成！
end sub
第四步：输入对应的代码之后，鼠标点击上方菜单栏：运行—运行子过程或窗体，这样就会运行这段代码，最终将这个工作簿里面的所有工作表，都会以对应的名称单独拆分为单个工作簿。如下图所示：
现在你学会如何快速将工作簿中的多个工作表，快速的进行工作表拆分了吗？
环氧富锌防腐钢管介绍 环氧富锌防腐钢管厂家 批发价格
单边封口 电了IC产品真空包装机 茶叶真空包装机械
人教版英语初三全册各单元重点短语、句型全汇总，新学期你正需要
国内网购的货物能直接海运到加拿大温哥华门上吗
涂料流变学及测量的应用解决方案
Excel多工作表快速拆分，同事用代码五秒搞定，你加班2小时才弄完
群创光电AM mini LED背光PID设备将发货 大力推广8K显示器
HZ-40多功能制丸机 实验室小型制丸机
LEENOL小课堂开讲了----防静电周转箱的小常识
橡胶制品加工
供应厂家直销耐高压水位计玻璃板、高温水表玻璃
龙易轩钻石画 让你轻松畅享财富生活
服装品牌加盟哪家好 伊见钟情特色情侣装受宠爱
溶剂甲基异丁基甲醇108-11-2物美价廉
圣阳蓄电池2V200AH GFM-200C报价参数
广东省流行的租赁行业推广平台，网上广告推广工具
上半年中国新增并网太阳能装机容量11.4吉瓦
堪比真葡萄的悠哈葡萄软糖，好吃到爆
家用新型环保节能水源热泵/空气能热泵空调
防火岩棉复合板@枣强防火岩棉复合板@防火岩棉复合板厂家
如上图所示，我们需要将工作簿中的6个工作表，按照对应的工作表名称单独拆分为单个的工作簿。下面我们就来学习一下如何用代码一秒操作。
第一步：首先鼠表选中工作表名称，点击右键—查看代码，进入代码编辑窗口；或者直接按alt+f11快捷键进入代码编辑窗口，如下图所示：
第二步：进入代码编辑窗口后，鼠标点击左边的工程资源窗口，右键点击thisworkbook，选中插入模块。如下图所示：
第三步：在模块代码编辑窗口输入下方代码，如下图所示：
代码如下：
sub 多工作表拆分()
dim wk as workbook, ss$, k%
application.displayalerts = false
for each sht in thisworkbook.sheets
set wk = workbooks.add
k = k + 1
thisworkbook.sheets(k).copy workbooks(2).sheets(1)
ss = thisworkbook.path & \ & sht.name & .xlsx
wk.saveas ss
wk.close
next
application.displayalerts = true
msgbox 多工作表拆分完成！
end sub
第四步：输入对应的代码之后，鼠标点击上方菜单栏：运行—运行子过程或窗体，这样就会运行这段代码，最终将这个工作簿里面的所有工作表，都会以对应的名称单独拆分为单个工作簿。如下图所示：
现在你学会如何快速将工作簿中的多个工作表，快速的进行工作表拆分了吗？
环氧富锌防腐钢管介绍 环氧富锌防腐钢管厂家 批发价格
单边封口 电了IC产品真空包装机 茶叶真空包装机械
人教版英语初三全册各单元重点短语、句型全汇总，新学期你正需要
国内网购的货物能直接海运到加拿大温哥华门上吗
涂料流变学及测量的应用解决方案
Excel多工作表快速拆分，同事用代码五秒搞定，你加班2小时才弄完
群创光电AM mini LED背光PID设备将发货 大力推广8K显示器
HZ-40多功能制丸机 实验室小型制丸机
LEENOL小课堂开讲了----防静电周转箱的小常识
橡胶制品加工
供应厂家直销耐高压水位计玻璃板、高温水表玻璃
龙易轩钻石画 让你轻松畅享财富生活
服装品牌加盟哪家好 伊见钟情特色情侣装受宠爱
溶剂甲基异丁基甲醇108-11-2物美价廉
圣阳蓄电池2V200AH GFM-200C报价参数
广东省流行的租赁行业推广平台，网上广告推广工具
上半年中国新增并网太阳能装机容量11.4吉瓦
堪比真葡萄的悠哈葡萄软糖，好吃到爆
家用新型环保节能水源热泵/空气能热泵空调
防火岩棉复合板@枣强防火岩棉复合板@防火岩棉复合板厂家