工作中有時(shí)候我們需要進(jìn)行多表數(shù)據(jù)匯總，有時(shí)候也是需要將一個(gè)工作簿中的多個(gè)工作表單獨(dú)拆分成獨(dú)立的表格。今天我們就來學(xué)習(xí)一下，如何快速做到一秒拆分多個(gè)工作表。
我們先來看一段效果動態(tài)演示圖：
如上圖，我們需要將總表中：廣東公司、深圳公司、長沙公司三個(gè)表格單獨(dú)拆分開來，并以對應(yīng)的名字作為拆分后的工作簿名稱。
這種用代碼的方式，能夠讓你快速進(jìn)行多工作表拆分?？赡軐τ谠S多人來說，還是在單純的使用復(fù)制粘貼的處理數(shù)據(jù)。下面我們來學(xué)習(xí)一下具體的操作方法。
操作方法：
第一步：整理表格后，點(diǎn)擊右鍵—查看代碼，或者按Alt+F11進(jìn)入代碼編輯窗口，點(diǎn)擊插入模塊，輸入以下代碼內(nèi)容：
代碼如下：
Sub 多表拆分()
Dim sht As Worksheet, mypath$
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show Then
mypath = .SelectedItems(1)
Else
Exit Sub
End If
End With
If Right(mypath, 1) <>>
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each sht In Worksheets
sht.Copy
With ActiveWorkbook
.SaveAs mypath & sht.Name, xlWorkbookDefault
.Close True
End With
Next
MsgBox "已完成工作表拆分。"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
第二步：點(diǎn)擊代碼上方菜單欄，運(yùn)行—運(yùn)行子過程或窗體，這樣代碼就會自動運(yùn)行，同時(shí)執(zhí)行我們的工作表拆分操作。如下圖：
現(xiàn)在你學(xué)會了工作表快速拆分操作了嗎？
