當前位置：首頁 > 科技 > 正文

利用VBA代碼快速合并多個工作簿到一個工作簿

說明：對于“工作簿”與“工作表”你是如何理解呢？為便于理解我們用書來形容！“工作簿”是一本書，“工作表”是書中的頁。一本書裡有很多頁，工作簿裡有很多個工作表。本例是講關于工作簿的合并。在實際工作中用得比較多，省時省力是最主要的。效果非常明顯！

第一步 新建一個文件夾用于放置要整合的工作簿，然後新建一個工作表，命名為“合并”

第二步 打開“合并“工作簿後，打開【開發工具】-選擇【visual basic】

第三步 将代碼複制進模塊中，不用修改，也不需要理解，會用就可以。關于VBA代碼知識自已另外學習吧！

Sub 合并工作薄()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

雙擊進入模塊中，将代碼

第四步 點保存。點是代表隻能這一次，下回打開表是沒有這些代碼的，想要保留代碼就要把文件保存為另一種支持宏的文件。宏方面的知識這裡不多說。本例選擇“是“

第五步 點【運行】并選擇【運行子過程/用戶窗體】，最快是按快捷鍵F5

跳出下面的窗口點運行

第六步 根據實際需求，通過浏覽窗口找到要合并的工作簿，可配合Ctrl鍵和Shift鍵選擇需要合并的工作簿，選擇後打【打開】。工作簿數量多的話就要等一小會，假如用手工打開複制再粘貼的話就不是一小會了可能是幾個小時，也可能是天來計算。電腦配置好就會快些。本例隻選擇表一、表二、表三。

第八步 合并後效果如下圖。

第九步 表一、表二、表三工作簿都合并到合并工作簿中，3個工作簿中都包含有2個工作表，都已經合并了，也就是說支持的工作簿，這個工作簿可以包含多個表。合并後，同一個工作簿的表是拓在一起的，至于工作簿的先後排序如何來設置有待研究。這個操作完之後就可以考慮多表合并的問題，我也做有例子供大家分享，共同學習。

你可能想看：

VBA常用小代碼102：批量合并相同值單元格

我們今天分享的VBA小代碼内容是批量合并相同值的單列單元格，需要将相同的班級單元格修改為合并單元格……：'用戶選擇數據列，'intersect語句避免用戶選擇整列造成無謂運算,Application....

Excel VBA 7.19 Excel跨工作薄多工作表數據合并之Excel表格多行表頭

所以我們今天針對多行表頭的數據彙總來分析下方法場景模拟假設我們要統計的Excel中每個表格都有表頭，1) End If Next sth End If ActiveWorkbook.Close Fal...

VB中一個服務器和多個客戶端的程序

VBA常用小代碼103：實現去重且自動顯示列表的數據有效性

我們今天聊的内容是單元格的數據有效性（2010版本後更名為數據驗證）：如何創建去除重複項後的下拉列表，在表格的A列創建去除重複人名後的數據驗證下拉列表：'如果選擇的單元格不存在于A列,Cells(Ro...

加工中心常用G代碼和M代碼大全，收藏好了！

G11--程式參數輸入取消（部分機床）G16--極坐标指令有效（部分機床）G36--特别固定循環（圓弧）G45--刀具位置設定（擴張）G46--刀具位置設定（縮小）G48--刀具位置設定（減半）G53...

如何快速制作一個工作表目錄索引

2、在第一個工作表上點擊鼠标右鍵。然後重命名為【索引目錄】。3、點擊選中【索引目錄】工作表中的B1單元格，然後點擊菜單【公式】中的定義名稱,4、在彈出的定義名稱窗口中輸入名稱【索引目錄】;然後在引用位...

自制血脈通治療冠心病伴雙下肢水腫32例臨床觀察分析+美味當良藥 治療高血脂合并冠心病+速效救心丸治療冠心病可彌補西藥不足+美味當良藥 治療高血脂合并冠心病

自制血脈通治療冠心病伴雙下肢水腫32例臨床觀察分析：采用中醫活血化瘀兼利水法與地奧心血康對照治療冠心病伴 雙下肢水腫的臨床觀察：将56例冠心病伴雙下肢水腫患者“治療明顯減少複發。

你會跨工作簿統計嗎？

而VLOOKUP、SUMPRODUCT函數就支持，函數語法:=SUMPRODUCT((條件區域=條件)*求和區域)!我們重新看一下出錯的單元格:\Users\chenxilu\Desktop\[跨工作...

打開工作簿時Excel總是提示包含無法更新的鍊接？

Excel默認會彈出一個對話框提示，每次打開包含鍊接的工作簿并單擊。工作簿中包含了錯誤的鍊接而無法更新，這時可以從下面的幾個方面查找這些錯誤的鍊接：一、工作表中包含錯誤的鍊接，源工作簿或其中某個被引用...

工作中，掌握這九個工作技巧，效率不再低

快節湊高效率已經成了每個職場人的工作标配。想要提高自己的工作效率，下面小編就來為大家分享九個工作技巧，很多事情往往都喜歡拖到最後一刻才去做，有些人不懂得合理安排自己的時間。努力和收獲往往存在着不等的關...

如何在工作中，找到一個長期目标

個目标可能是跟公司匹配的“或多或少都處在沒有找到目标的焦慮中，沒有誰天生一進入職場就能找到自己的長期目标，尋找長期目标更像是為了終結挫敗感，其實大多數人都可以從工作中各式各樣的位置找到長期目标，價值的...

在職場，真正的“蠢人”，往往有一個工作上的壞習慣，你中招沒

往往有一個工作上的壞習慣，覺得這個任務很好完成，覺得工作太多了、工作任務太重了，同事溝通不順、相互推脫責任，這些都隻是因為你從最開始将工作一拖再拖而造成的；客戶竟然沒來提貨，客戶說會盡快來拿，第二天領...

一個家庭走向衰敗的二個暗示，碰到一個，也要警惕了

肯定都是希望家庭能夠和諧并且穩定的發展，很多家庭都在生活之中慢慢的走向衰敗，導緻一個完整的家庭瞬間分崩離析。那麼為了避免出現家庭的衰敗，其實一個家庭走向衰敗的因素有很多，但是如果出現這兩個暗示就代表着...

一部好的小說一定會塑造出令人難忘的一個或多個典型人物形象

裡面的人物有不同的境界，因為人物的任何其他方面都是為這個人物的思想服務的，一部好的小說一定會塑造出令人難忘的一個或多個典型人物形象，那麼為什麼讀完有些人的作品我們隻能記住很少的一兩個人，那麼一部長篇小...

合并超多工作表的完美解法

然後打開它初階彙總數據→新建查詢→從文件→從工作簿→選中需要彙總的表→導入，把需要彙總的表都勾上，進入Power Query編輯器點擊”→組合→将查詢追加為新查詢→三個或更多表→雙擊需要彙總的表格→确...

2014年最好的十個工作

數學、技術、工等都排名居前。環境、收入、前景、壓力：包括工資、就業前景、工作環境、物理環境等，工作環境、收入、前景、壓力都排名靠前。包括能源、交通和IT等都離不開數學。工作環境排第一、壓力較小：新iP...

「麥肯錫精英的48個工作習慣」26頁PPT完整版

——這份資料名叫《麥肯錫精英的48個工作習慣》，世界精英們反複累積的成功要素。作者回顧了自己在高盛、麥肯錫、哈佛商學院的工作和求學經曆,分享了在高盛集團、哈佛學院、麥肯錫咨詢公司學到的工作成功要素經驗...

985碩士應聘豪門家政背後：不是哪個工作不掙錢，是你不值錢

終于琢磨出了往瓶裡丢石子的方法，很多網友也看不過去這樣的選擇，越來越多的高學曆人才進入普通基層職業“他還去考了整理師和私人管家的國家認證證書。就這些已經超越行業内的大部分家政了，這些工作内容某種程度上...

《人生感悟荟萃：遇到一個好的愛人是一種恩賜，可以減輕一半的人間疾苦》

遇到一個好的愛人，隻有真正喜歡你的人，才會打心眼裡覺得你特别好，你會變得自信有底氣。好的愛情是你通過一個人看到整個世界，壞的愛情是你為了一個人舍棄世界。有些人有些事有些愛，就注定要羁絆一生，外貌決定有...

《人生感悟荟萃：遇到一個喜歡的人其實不難，很多愛情都開始于喜歡結束于了解》

生命裡往往需要感恩的就是教會你愛情的那個人，但感悟到這份難過時，那緣份早已成為下輩子再次相見的承諾了。愛有離别，有些愛感動着，有些人永遠都不會懂得有些事的無奈，有些話的重要有些愛的沉重。年輕女孩因為物...

你會選品嗎？教你如何找到一個暴利産品

教你如何找到一個暴利産品，沒有産品就算你把營銷玩出各種花樣來也賣不動，所以選擇産品非常重要，找到暴利産品的秘訣：假如說你選擇的細分市場是兒童近視治療，把你找到的幾個關鍵詞依次輸入，關注那些做競價推廣的...

又想到一個對賬新方法，這也太好用了吧

對賬借助WPS表格，1.标記重複（唯一）數據将兩列姓名重複的用填充色表示。選擇A列的區域，标識重複數據，再選擇C列的區域，這個相當于Excel裡面的條件格式，突出顯示單元格規則，WPS表格的這個新功能...

失去摯愛後，他與600多個女人放縱一生：為何男人總忘不了初戀？

本期主播丨楊槍槍為什麼男人總是忘不了初戀？為什麼男人不肯丢掉初戀送的禮物？男人總愛拿初戀做比較？不然影視劇中怎麼都營造男人的純情人設呢……《情深深雨蒙蒙》中陸振華忘不了初戀萍萍，男人忘不了初戀背後。也...

治療各種心髒病、腦動脈硬化、腦血栓、腦梗塞等多個中醫特效驗方（通血路方）

花旗參100g三七150g水蛭100g野生天麻100g地龍100g 紫丹參150g川芎100g生山楂100g燈盞花100g藏紅花30g，如果作為預防服用，可預防冠心病：中風的發生，益氣化瘀。溶栓通脈主...

一百多個趣味運動會項目

參賽隊員站在木闆鞋上，以船尾到達終點線為比賽結束:前面隊員抱住後面的隊員右腿，後面隊員左手搭在前面隊員的肩上，隊員們單腳向前跳躍前進:以排尾跳過終點線為比賽結束，二人迅速側身向前跑:繞過标志物跑回将球...

白俄羅斯的前世今生：白俄羅斯是個怎樣的國家？和俄羅斯有什麼關系？為何多個“白”字？

白俄羅斯與現在的俄羅斯人和烏克蘭人一起并入基輔羅斯，白俄羅斯長期處于立陶宛、波蘭及俄國的影響及争奪之下。18世紀末白俄羅斯并入俄國，白俄羅斯又被德國軍隊占領。曆史上與波蘭、立陶宛、烏克蘭、俄羅斯淵源很...

VBA遍曆所有文件夾的兩種方法（filesearch和FileSystemObject）

另外一種是使用FileSystemObject(windows文件管理工具)和遞歸方法。

工作簿工作gif合并表

上一篇
Excel中的 Ctrl+G 你會用嗎？

下一篇
路由器上貼個創可貼，太方便了，信号增強網絡快，用了都誇好

有話要說...

最新文章

取消
掃碼支持 支付碼