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