把乙個工作簿中的各個工作表拆分成工作簿

2022-10-10 00:24:07 字數 1227 閱讀 3172

前面章節提到過excel中工作表、工作簿間四種情形下的合併,除了合併之外,有時我們又要需要對工作表進行拆分,比如:

上面這個工作簿中有四個工作表,分別是每個分公司的資料,現在要把各個分公司的資料單獨拆分成工作簿,然後發給各個分公司。

其實這個比較簡單,思路如下:

在上圖的工作簿中迴圈出各個工作表,然後在該資料夾下新建乙個與該工作表名稱一致的工作簿,開啟新建的工作簿,把內容複製進去,儲存並關閉,如此乙個個迴圈下去即可。

**如下:

sub 拆分()

dim ws as worksheet

for each ws in worksheets

workbooks.add.s**eas thisworkbook.path & "" & ws.name

worksheets.add.name = ws.name

ws.usedrange.copy [a1]

activeworkbook.close 1

next

end sub

或者是:

sub 複製()

dim ws as worksheet

for each ws in worksheets

workbooks.add.s**eas thisworkbook.path & "" & ws.name

ws.copy worksheets(1)

activeworkbook.close 1

next

end sub

此題主要的目的是練習工作表和工作簿的一些基本操作。

1、office365, office 365, 365,可以獲取office365版本

2、excel學習, excel學習,可以獲取相關的學習資料

3、vba學習,可以獲取相關的學習資料

4、excel擴充套件,可以獲取excel擴充套件工具,能讓excel更加高效方便的工作

6、ppt模板, ppt模板,可以獲取相關資源

7、快查手冊,可以獲取函式快查手冊

長按識別下方***關注,

掃掃紅包就當讚賞我了!

把儲存到手機,

支付寶直接掃碼識別***就行!

覺得不錯請點贊!!!

分享是一種美德,共同學習共同成長!

多個工作簿彙總到乙個工作簿 介紹開放組織工作簿

多個工作簿彙總到乙個工作簿 opensource.com的開放組織社群非常榮幸地宣布立即發布 開放組織工作手冊 這是 開放組織 叢書中的第六本書。開放組織工作手冊的特色是來自30多個管理人員,教育者,技術人員,顧問和其他專家的意見,他們提供了切實可行的策略,以將透明性,包容性,適應性,協作性和社群性...

乙個工作薄有多少工作表,每個工作表有多少行和多少列

大家都很熟悉excel電子 了,可是很少有人研究過,工作薄到底有多少個工作表,每個工作表到底有多少個行和列。下面,就針對這個最基本的問題,給大家詮釋一下有關的知識 工作薄中的工作表 就目前而言,乙個工作薄,最多能包含255個工作表。也就是說,每個工作薄,即每個exccel檔案,最多只能包含255個工...

使用VBA將多個工作簿的資料合併到乙個檔案中

新建個彙總檔案,執行vba 合併 vba 如下 sub 合併目錄所有工作簿全部工作表 dimmp,mn,aw,wbn,wn dim wb as workbook dimi,a,b,d,c,e mp activeworkbook.path 獲取當前工作薄的路徑 mn dir mp xls 遍歷exce...