VBA 將多表工作簿拆分為多個多表工作簿

sub test()

dim arr, i%, j%, d, ws as worksheet

set d = createobject("")= false

truefor each ws in worksheetsif <>"分類帳詳細資訊" then

nextwith worksheets("分類帳詳細資訊")arr = .range("a1").currentregionfor i = 2 to ubound(arr)if not , 2)) then

after:=sheets(

arr(i, 2)

rows(1).copy [a1]

rows(i).copy range("a65536").end(xlup).offset(1)

d(arr(i, 2)) = ""

elserows(i).copy worksheets(arr(i, 2)).range("a65536").end(xlup).offset(1)

end if

nextend with

true true

end sub

如何使用：在表中建立乙個新模組，將 ** 複製到該模組中並執行它！

如何將乙個工作表拆分為多個工作表？

2.右鍵單擊任何工作表選項卡，然後選擇 檢視 從彈出的下拉列表中。 也就是說，彈出視窗。 如下圖所示。

3. 單擊要插入的選單，然後輸入以下 **:p rivate sub split worksheet（）dim sht as worksheetdim mybook as workbookset mybook = activeworkbookfor each sht in filename：=&"\" & fileformat:

xlnormal '將工作簿另存為 Excel 預設格式"檔案已被拆分！ "end sub

4. 點選執行，執行子流程表單幾秒鐘後，會彈出乙個“檔案已拆分”的彈窗，如下圖所示。

5.返回excel工作簿檔案所在的路徑，如下圖所示，檢視原始工作簿中的工作表已成為單獨的工作簿。

您可以按照以下步驟操作：

1）右鍵單擊要複製的工作表標籤。

2） 在彈出視窗中選擇"移動或複製工作表"；

3）單擊彈出視窗中的下拉框並將其選中"（新建工作簿）。"；

4）如果是影印件，請檢查"建立副本"如果是剪下，請取消選中此選項，確定。

5）儲存，以便新的excel檔案是好的。請看下面的演示。

選擇“另存為獨立工作簿”，然後單擊“確定”完成。

詳細步驟： 1.開啟演示檔案並要求將**拆分為多個檔案的單神過早戰鬥。

2. 點選下面的選項。

3. 單擊[摘要拆分]，然後選擇[拆分工作表]。

4. 將標題行數設定為 1。 堅持下去。

<>6.選中[另存為獨立工作簿]，然後單擊[確定]完成。

7.成品效果如下。

option explicit

子 按部門劃分的子表：了解抗性的歷史（）。'各個部門是連續的。

dim s as long, infor

dim i as long

dim bool as boolean

with "人事資訊")

bool = true

if bool then

infor = cells(s, 1)

bool = false

end if

if .cells(i, 1) copy "a1"）rows（s & i - 1）。copy "a2")s = ibool = true

end if

next i

end with

end sub