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
第四步:输入对应的代码之后,鼠标点击上方菜单栏:运行—运行子过程或窗体,这样就会运行这段代码,最终将这个工作簿里面的所有工作表,都会以对应的名称单独拆分为单个工作簿。如下图所示:
现在你学会如何快速将工作簿中的多个工作表,快速的进行工作表拆分了吗?
页面更新:2024-04-23
本站资料均由网友自行发布提供,仅用于学习交流。如有版权问题,请与我联系,QQ:4156828
© CopyRight 2020-2024 All Rights Reserved. Powered By 71396.com 闽ICP备11008920号-4
闽公网安备35020302034903号