利用VBA快速將多個工作簿中指定的sheet的數據合併到新的工作簿中

2020-12-09 在線辦公軟體課程

我們有時候在工作中，需要多個工作簿中的表合併到一個工作簿中，不進行匯總，只是放到一個工作簿，保留原來的表名，這次我們分享一個使用VBA快速解決這個問題的方法，下面我們將VBA代碼分享出來。

Sub 匯總數據（）

Application.ScreenUpdating = False

Dim wb, wb1 As Excel.Workbook

Dim sh As Excel.Worksheet

s = Split(ThisWorkbook.Name, ".")(1)

f = Dir(ThisWorkbook.Path & "\*" & s) '生成查找EXCEL的目錄

Do While f <> "" '在目錄中循環

If f <> ThisWorkbook.Name Then '如果不是打開的工作簿

Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)

wb.Worksheets("sheet1").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

ActiveSheet.Name = Split(wb.Name, ".")(0)

wb.Close

End If

f = Dir

Loop

ThisWorkbook.Worksheets("匯總").Activate

Application.ScreenUpdating = True

End Sub

相關焦點

  • 利用VBA快速將多個工作簿中的sheet表數據合併到一個sheet表裡
    我們在實際工作中，有時候需要將多個工作薄中的sheet表的數據快速合併到一個sheet表裡，假如我們使用手動去複製粘貼，這樣就特別浪費時間和精力，所以我們可以使用VBA快速實現，我們只需要輸入VBA代碼。
  • Power Query中的「追加查詢」可以實現合併多個工作表和工作簿
    要求把所有的內容放到一個sheet表中。 一般職場達人的做法：複製粘貼到一個sheet表中。100+個sheet表，全手工複製不僅浪費時間，還容易出錯。 雷哥以2個sheet表合併為例，進行講解。
  • 如何將多個表格中數據匯總到一張表中
    前幾天有個讀者在後臺留言，如何將多個表格中的數據匯總到一張表裡。筆者查詢了相關資料，發現目前除了用vba編寫代碼之外，沒有特別簡單的方法，而寫代碼這件事情，非一日之功。因此筆者建議，此時，我們可以利用一些好用的插件進行數據匯總處理。利用「方方格子」這個插件，只需幾步就可以將多個表格中的數據進行匯總。直接在官網就可以下載，目前也還是免費使用的。
  • VBA基礎技能,同一個工作薄裡將多個sheet合併到一個sheet裡
    我們在實際工作中，有時候需要將同一個工作薄裡的幾個sheet表裡的數據合併到一個sheet表裡，如果我們手動操作就太繁瑣了，而且要浪費時間，其實我們可以使用VBA快速實現，比如有1、2、3、4，4個sheet，分別是不同部門的人員信息，需要合併到匯總一個sheet裡。
  • Excel中多個工作簿之間數據的合併計算
    Excel中多個工作簿之間數據的合併計算大家好！今天分享的知識是Excel中的數據合併計算，這是我們在日常工作中經常要用到的功能，尤其是月末、季末、年末各種數據匯總的時候，下面就為大家舉例講解。一、合併計算的功能簡介合併計算是將源於相同或不同工作簿中多個工作表的數據收集到一個主工作表中，再進行各種相應的計算。
  • Excel中多個工作簿數據合併到一個,試試這2種方法,教你快速搞定
    Excel中多個工作表拆分生成單個文件，同事1分鐘搞定了》教程，小編教大家快速拆分Excel表格，今天小編再教大家多個工作簿的數據合併到一個工作簿中情況一：Excel文件中的CSV格式很多軟體導出的的表格文件格式CSV格式，也就是文件的後綴名是.csv1、新建一個文本文檔，然後在文檔中輸入：copy *.csv 合併.csv ，關閉保存文檔2、將該文檔後綴名.txt
  • EXCEL小技巧:教你如何一鍵合併多個工作簿
    平時，我們在工作中總會遇到需要把多個具有相同結構的工作簿的工作表合併到一個工作表裡，方便進行數據統計和分析，生成新的報表數據，如下圖1：圖2如上圖1、圖2，就是把分表文件夾裡的工作表1、2、3三個具有相同結構的工作表的數據全部合併到匯總到名為「匯總」的工作表裡。如下圖3：
  • Excel用VBA代碼一鍵合併匯總多個工作簿,省時省力必學!
    有時候，你需要將幾十個工作簿中的內容，快速匯總至合併至一個工作簿，如果手動一個複製粘貼，那心裡有苦說不出。。。今天將大家用VBA一鍵合併，只需要幾秒種，為了測試這段代碼，我們新建了4個工作簿在文件夾中，數據都是模擬的，做試驗一鍵合併代碼操作如下所示：我們看原始表格數據，其中，第1個工作簿有點特殊，這個工作簿中，有兩個工作表，第1個工作表的內容是：第2個工作表的內容是：第2，3，4個工作簿中都是僅有
  • 批量合併多個Excel工作簿,10秒解決大難題,高效數據整理
    今天跟大家分享一下批量合併多個Excel工作簿技巧，10秒解決大難題，數據整理不加班。 メ大家請看範例圖片，多個Excel工作薄複製粘貼到一個總表中，傳統做法只能手動一張一張表格複製粘貼。メ
  • 使用VBA一鍵瞬間合併多個EXCEL工作簿,省時省力又省心
    最近一位同學讓我付費給他寫一段VBA代碼，功能就是合併同一文件夾下的所有工作簿的第一個工作表到同一個工作簿中去，我大概花了二十多分鐘將功能基本寫出來了，又花了點時間研究優化代碼，最後大功告成。合併工作簿的功能應該是日常工作場景用的比較多的，這裡乾貨君將代碼貢獻出來，有需要的同學可以直接複製粘貼使用。
  • 使用PQ進行Excel多文件合併時,如何指定工作簿裡的工作表或區域
    我們都知道，Power Query（以下簡稱PQ）作為Power BI組件的起始端，承擔著數據的加載和清洗職能，功能非常強大。日常工作中進行數據的匯總、清洗、整理等，非常方便及快捷，省時省力。如果我們每個工作簿裡面有多個工作表，或者工作表有不同的表頭，又或者我們只想要匯總特點的區域數據，有什麼辦法嗎？答案肯定是沒問題的，這也是PQ之所以強大的地方。例如我們有以下四個工作簿，每個工作簿裡面各有2個不同的表，分別是水果和蔬菜。
  • 如何將多個表頭一致的Excel文件合併到一個新表中?
    需求有好幾個表頭一致的Excel工作簿，目前呢，需要將其合併到新的Excel文件的同一個sheet中，該如何操作呢？2.在這個文件夾外部，建一個新Excel工作簿，命名為「power query 數據處理」。
  • Excel – 文件再多都不怕,合併多個工作簿且轉換成二維表
    這是來自讀者的求助：全國的客戶銷售表按每個省份分別單獨建立了一個工作簿，任何一個省份的數據有更新都需要同步到總表中。有什麼更簡便的方法幫助他合併多個工作簿，且每日實時更新？案例：文件夾下有多個工作簿，樣式分別如下，需要將這些工作簿合併到總表，並按購買產品排列成二維表。解決方案：1.
  • Excel表格把數據按類別快速拆分到不同工作表或工作簿
    Excel表格中數據的拆分和匯總是我們經常會遇到的問題，之前寫過一篇利用VBA代碼匯總多個工作簿的數據。Excel表格複製多個工作簿的數據到一個工作表有時並不是所有的數據都能共享，這時就需要把數據按類別拆分到不同的工作表或者工作簿裡
  • 工作簿和工作表的屬性(Properties)和方法(Methods)
    今日的內容是「VBA之EXCEL應用」的第三章「工作簿(Workbook)和工作表(Worksheet)對象(Object)」中第二節「工作簿和工作表的屬性（Properties）和方法（Methods）」。「VBA之EXCEL應用」這套教程從簡單的錄製宏的講解，一直到窗體的搭建，內容豐富，案例眾多。
  • 快速合併多個工作薄或者合併多個工作表的操作技巧
    我們在實際工作中，我們經常使用excel表格處理數據，當我們需要處理大量的數據的時候，我們可以數據分別輸入不同的表格中，不過有時候我們卻需要將不同的工作簿或者工作表數據合併到一個工作簿或者工作表裡，下面我們就以視頻的形式一起學習excel表格快速合併多個工作薄或者合併多個工作表的操作技巧
  • Excel辦公技巧:快速將同一工作簿中的工作表名稱整理成目錄
    應用場景下圖工作簿中有多個工作表，我們想將紅色方框標註的幾個工作表名稱整理成目錄列表，放在工作簿最左側的工作表「案例目錄」中，有沒有什麼便捷的方法呢？下面我們一起來看一下。操作步驟１.在「案例目錄」工作表中，選中要存放工作表名稱的起始單元格A2，在「數據」選項卡「獲取和轉換」功能組中單擊「新建查詢」按鈕，在彈出的下拉列表中依次單擊「從文件」－「從工作簿」。
  • EXCEL之VBA(宏)指定快捷鍵及添加到快速訪問欄的方法
    指定宏快捷鍵步驟三注意的是，菜單欄開發工具的選項默認是不顯示的，開啟方法如下：另外在後面說到的第三種調VBA宏代碼的方法就需要使用到開發工具選項。開啟開發工具選項卡二、添加到快速訪問欄，並開啟快速訪問欄。注意的時，如果添加原宏要對所有打開的文檔有效，需要把宏保存到個人宏工作薄。
  • 如何保存含宏指令(VBA代碼)的Excel工作簿
    通常情況下，在使用Excel處理數據時，如果碰到需要進行較多的重複性操作，可以通過錄製宏命令來，將這些操作指令記錄下來，然後讓Excel傻瓜式的運行這些指令，即可實現化繁為簡，在提高工作效率的同時還能保證質量的穩定，這就是為啥有些人在處理重複性操作時，是那麼的得心應手，而有的人卻是那麼舉步維艱，叫苦連天。
  • excel實用技巧:如何將多個表格中的數據合併匯總到一個表格中
    將多個表格數據合併匯總到一個表中，應該是我們工作經常遇到的一個問題，對於高手來說可能不算什麼難事，但對於新手來說可能就沒有那麼容易了，所以今天我們就來普及一下這個方法我們以一個簡單的銷售工作簿為案例。此案例中有三個工作表，每個工作表分別是各銷售員在1月、2月、3月三個月的銷售哦，我們把它們合併到第一個季度的工作表中。