在各行各業(yè)的日常工作中，經(jīng)常需要把一份工作表的內(nèi)容歸類拆分到N個(gè)工作簿，最基礎(chǔ)的辦法就是通過篩選、排序歸類數(shù)據(jù)，然后復(fù)制原數(shù)據(jù)，再新建工作簿，粘貼數(shù)據(jù)，如此往復(fù)......如果數(shù)量較小，這樣操作沒問題，如果分類的數(shù)據(jù)非常多，要新建幾百，幾千個(gè)工作簿，那就是一個(gè)非常大的工作量了。
此時(shí)就需要使用批量處理的方法，可以用PQ，也可以用VBA，本文就分享用VBA來處理批量拆分工作簿，用VBA的好處在于，只要代碼寫好，不需要懂代碼，任何人都可以直接拿來用，其他辦法就需要對(duì)軟件操作有一些要求了。
以下圖這個(gè)表格為例：
工作場景：這是一位學(xué)員給我提出的問題，她說這個(gè)表格每個(gè)星期要做一次，需要把這個(gè)表格按A列的店鋪名稱歸類到一起然后拆分到工作簿，A列中有幾個(gè)店就要拆分成幾個(gè)工作簿，并且還要保留原來的批注圖片，拆分出來的工作簿名稱以店鋪名稱命名。
這個(gè)問題的關(guān)鍵點(diǎn)：
1、A列的店鋪是無序的
2、保留表格中的批注圖片
3、工作簿命名為對(duì)應(yīng)的店鋪名稱
OK，問題描述清楚了，那就開始講解VBA操作步驟。
VBA操作步驟
1、首先表格需要打開宏設(shè)置，點(diǎn)擊文件——Excel選項(xiàng)——信任中心——信任中心設(shè)置——宏設(shè)置——啟用所有宏，然后點(diǎn)擊確定。
這個(gè)步驟，每臺(tái)電腦只要設(shè)置過一次，以后都默認(rèn)開啟，如果你以前用過VBA那這個(gè)步驟可以略過。
2、鼠標(biāo)放在原數(shù)據(jù)所在的工作表，點(diǎn)擊鼠標(biāo)右鍵，查看代碼，進(jìn)入VBA編輯界面
將代碼復(fù)制到上圖所示的區(qū)域中。
復(fù)制下面的代碼↓↓↓↓↓↓（黑色加粗部分）
Sub 按A列區(qū)分內(nèi)容并拆分到工作薄()
Dim i%
arr = Sheets(1).[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If d.exists(arr(i, 1)) Then
Set d(arr(i, 1)) = Union(d(arr(i, 1)), Rows(i))
Else
Set d(arr(i, 1)) = Union(Rows(1), Rows(i))
End If
Next i
For ss = 0 To d.Count - 1
Workbooks.Add
With ActiveWorkbook
d.items()(ss).Copy .Sheets(1).[a1]
.SaveAs ThisWorkbook.Path & "/" & d.keys()(ss)
.Close
End With
Next ss
MsgBox "快學(xué)Excel提示您，工作薄拆分完畢！"
End Sub
3、點(diǎn)擊運(yùn)行(點(diǎn)擊綠色三角形)，代碼運(yùn)行時(shí)，屏幕會(huì)閃爍，拆分出來的新工作簿會(huì)放在原工作簿的路徑里。如果原工作簿放在一個(gè)文件夾，那新拆分出來的工作簿也會(huì)在這個(gè)文件夾里，如果原工作簿放在桌面，那拆分出來的工作簿就會(huì)放在桌面上。當(dāng)拆分完畢時(shí)，會(huì)彈出提示框，表明代碼運(yùn)行完畢。
拆分完畢后，新工作薄以店鋪名稱命名
拆分完后隨意打開一張看一下，店鋪名稱已經(jīng)歸類拆分好了，并且批注圖片保留下來了。
如何根據(jù)自己的需求修改代碼？
上面的案例所用的代碼默認(rèn)表格的格式為：表頭一行，拆分依據(jù)為A列
1、如果我的表頭是一行，但是我以B列為依據(jù)拆分應(yīng)該如何對(duì)代碼進(jìn)行調(diào)整呢？
把代碼的這4處（下圖中紅框標(biāo)記處）修改為2
如果以C列為拆分依據(jù)就修改成3，以此類推。
2、如果我的表頭是多行并且表頭有合并單元格怎么改代碼？
如下圖所示，表頭是2行，并且有合并單元格，以B列為拆分依據(jù)
表頭有合并單元對(duì)代碼運(yùn)行沒有任何影響，無需針對(duì)這個(gè)修改代碼。
表頭如果是兩行需要對(duì)代碼，上面紅框處把2修改成3，下面紅框處rows(1)修改成rows("1:2")
如果表頭是3行，上面紅框就修改成4，下面紅框處就修改成rows("1:3") 以此類推。
好了關(guān)于如何用VBA拆分工作簿就分享到這里，如果這篇文章能幫助到你請(qǐng)點(diǎn)贊，收藏，你的點(diǎn)贊是我繼續(xù)創(chuàng)作的動(dòng)力。
本文由快學(xué)excel原創(chuàng)，歡迎大家關(guān)注。
