前面章節提到過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...