一键批量拆分Excel工作表「模板下载」

今年5月份，我们在Excel表哥微信公众号平台上开始了关于合并工作表和工作簿的系列文章。

从合并具有相同内容的单元格到合并多个工作表再到合并多个Excel工作簿，一切只需一键即可完成！

专辑如下，也可以在表哥公众号底部菜单栏左侧【快来获取有用信息】。

一位读者给我表弟留言。既然有合并工作簿和工作表的工具，怎么能没有一个一键拆分的工具呢？

读者提出的问题实际上让我们看到了每个人日常工作的需求。Excel表哥公众号也很乐意帮助读者解决一切Excel应用问题。

所以今天我们特意创作了这篇文章来跟大家分享一下如何拆分工作表并一键生成多个新的表格或工作簿。

今天的分享将向大家展示VBA如何在我们的日常工作中帮助我们提高成百上千倍的工作效率！

01案件分工

以读者朋友的问题为例。

我们希望根据主信息表中指定的格式将每个信息汇总表行的汇总信息划分到不同的工作表/工作簿中。

如果没有VBA的帮助，通常的做法是在两个工作表或工作簿之间不断复制和粘贴。

想象一下，如果这个汇总表有数百行数据，这种重复操作将非常繁琐并且容易出错。

02VBA一键操作

对于这些类型的重复操作，Excel的内置VBA非常有用。

首先，让我们看看分割下一个键的效率如何：

以6行数据为例，分案需求

拆分为6个工作表需要1秒，拆分为6个独立工作簿需要5秒。

相比手动复制粘贴，效率提升千倍以上！

03代码分析

你不必认为VBA太复杂。整个程序不是很长，不需要每行代码都手写。

这些基本步骤可以通过录制宏并进行小的更改来完成。当然，前提是你还需要了解一点VBA常识。

详细代码如下，具体通知功能请见代码注释。

子工作表split()

DimWb、Sht、msht、NewSht、rng

SetWbApplicationThisWorkbook

SetShtWbWorksheets('摘要信息')

SetmshtWbWorksheets（“基本信息”）

与Sht

endrowCells(CellsRowsCount,1)End(xlUp)Row

伊芬德罗

SetrngRange('A2:O'endrow)

排列值

结束于

“工作簿拆分器”模板

selVal(ApplicationInputBox('选择拆分为工作表或工作簿'vbNewLinevbNewLine'1:工作表2:工作簿',标题:模板,默认:1,类型:1))

Ifsel0ThenExitSub

现在时间时间

ForiLBound(arr)ToUBound(arr)

mshtCopyAfter:WbWorksheets(WbWorksheetsCount)'复制主表到新表

SetNewShtWbWorksheets(WbWorksheetsCount)

与NewSht

newnamearr(i,3)'用第三列中的名称命名新表

ApplicationDisplayAlertsFalse

ApplicationScreenUpdatingFalse

OnErrorResumeNext'删除工作表时可能会发生错误。忽略错误并继续执行。

WbWorksheets(newname)Delete'删除工作表

以下是填写每个子表单的步骤

Name新名称

Range('B2')Valuearr(i,3)'小表B2单元格的内容为大表第3列的名称，以此类推。

''等等，需要根据自己的需要进行定制和更改。

范围('B6')值(i,9)

Ifsel2Then'另存为新工作簿

活动表。选择

ActiveSheetMove

ChDirThisWorkbookPath

ActiveWorkbookSaveAsFilename:arr(i,3)'xlsx',

文件格式：xlOpenXMLWorkbook，CreateBackup：False

ActiveWorkbook关闭

万一

结束于

下一个

Windows(WbName)激活

WbSheets('信息摘要')选择

应用程序ScreenUpdatingTrue

设置Wb无

设置无任何内容

设置无任何内容

设置NewShtNothing

不设置任何内容

timeuseRound((时间-现在时间)*24*60*602)

Ifsel2Then

MsgBox'Done!'vbNewLine'分割工作簿在当前路径中！'vbNewLine'由'timeuse'组合而成，标题：Tempela

否则

MsgBox'Done！'vbNewLine'分割内容在当前工作簿中！'vbNewLine'将'timeuse's'组合在一起，标题：Tempela

万一

结束子

▲左右滑动查看所有代码

将此子程序宏代码分配给按钮。然后，如动画所示，只需点击此按钮即可一键完成工作表的拆分。

您还可以根据需要选择将其拆分为新的工作表或工作簿，非常人性化。

由于每个人的表单设计都不同，因此子表单填写代码应由读者更改。

您还可以下载用于基准测试练习的模板/工具。读者朋友们可以关注公众号，在下方留言区获取后台下载关键词

如何查看相册

笔记。本公众号所载原创文章为作者辛勤劳动成果，转载请联系作者并注明出处。

处处留心是明智之举。我建议保存这条推文以备不时之需。

我认真对待你点击的每一个“看”▼

#分割工作表#