當前位置：首頁 > 教育 > 正文

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

一起學習，一起進步~~

多行表頭，表頭中含有合并單元格，這種類型的Excel表格在我們的日常工作中是經常出現的，很多的人在做表格的時候，想要體現表格的整齊和美觀，大批量的使用了合并單元格、多行表頭的形式，雖然整體表格數據好看了很多，但是對于數據分析和數據彙總的童鞋來說，則是非常頭疼的事情，小夥伴們在日常的工作中也反饋會碰到多行表頭的情況，所以我們今天針對多行表頭的數據彙總來分析下方法

場景模拟

假設我們要統計的Excel中每個表格都有表頭，如下圖

現在我們不僅僅要彙總表頭，同時還需要彙總表頭下面的具體的數據内容，很明顯，我們之前的代碼面對這樣的問題的時候，就受到限制了，因為我們之前的表頭都是默認隻有一行的标準數據，那麼眼下面對這樣的情況我們要如何來解決呢？

請聽我的拙見~~

代碼區

既然有了多行的标有，那麼我們實際操作的時候，确定有多少行表頭不就行了。

來試下

Sub test()Dim pathn, rng As Range, sth As Worksheet, book As WorkbookSet book = ActiveWorkbookpathn = ActiveWorkbook.Pathk = 0f = Dir(pathn & "\")Do While f <> "" If f <> ThisWorkbook.Name Then k = k + 1 Workbooks.Open pathn & "\" & f If k = 1 Then Set rng = Application.InputBox("請選擇表頭區域", "标有區域的确定", , , , , , 8) countr = rng.Rows.Count For Each sth In Worksheets k1 = k1 + 1 If k1 = 1 Then sth.UsedRange.Copy book.Worksheets(1).Cells(1, 1) Else l = book.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row sth.UsedRange.Offset(countr, 0).Copy book.Worksheets(1).Cells(l + 1, 1) End If Next sth Else For Each sth In Worksheets k1 = k1 + 1 If k1 = 1 Then sth.UsedRange.Copy book.Worksheets(1).Cells(1, 1) Else l = book.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row sth.UsedRange.Offset(countr, 0).Copy book.Worksheets(1).Cells(l + 1, 1) End If Next sth End If ActiveWorkbook.Close False End Iff = Dir()LoopEnd Sub

看看效果

我們首先要确定表頭的區域

然後後面就交給程序自動執行了，他會根據我們選擇的多行表頭的行數來自行複制相關的數據區域，避免了數複制很多次表頭的情況

來看看最終效果

多行表頭已複制了，相關的數據也複制了，成功的将所有的數據都合并在了一個工作表

代碼分析

其實本節的重點就是要獲得多行表頭的行數，然後我們可以從下一行将需要的正文數據複制出來，而不會将表頭複制過來了。 

但是因為我們手上沒有工作薄的樣式，是一個空的工作薄，所以再循環所有當前工作薄的文件夾的時候，我們再打開第一個個工作薄的時候，進行表頭區域的确定

If k = 1 Then Set rng = Application.InputBox("請選擇表頭區域", "标有區域的确定", , , , , , 8) countr = rng.Rows.Count

k是計量單位，記錄我們打開的次數，當他等于1的時候，就是代表第一次打開，然後我們就可以通過當前的這個工作薄确定表頭的區域了。

如何确定有多少行呢？

countr = rng.Rows.Count'此方法進行用來确定某個單元格區域的總行數，大家可以記下寫法

既然有了多行表頭的總行數，那麼就可以開工了。 循環所有的工作薄内的所有工作表，如果第一次循環，就将表頭複制過去，如果不是第一次了，那就将跳過表頭行來進行複制，就是這段代碼的作用、

For Each sth In Worksheets k1 = k1 + 1 If k1 = 1 Then sth.UsedRange.Copy book.Worksheets(1).Cells(1, 1) Else l = book.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row sth.UsedRange.Offset(countr, 0).Copy book.Worksheets(1).Cells(l + 1, 1) End If

當然上述的這些操作都是針對第一次打開第一件工作薄的操作的，如果打開後面的工作薄呢。k>1 ,則進入另外一個判斷體

大家會發現這個判斷體和上面的一個是完全重複的，沒有，一樣的思維邏輯，就是場景不同而已

===============================

你可能想看：

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

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

《Excel2003入門動畫教程27、Excel拆分表格》

《Excel2003入門動畫教程27、Excel拆分表格》。　　演示動畫，　　操作步驟，　　有時候在Excel中：們需要比較浏覽同一工作表中不同區域的數據時，可以通過折分窗口來實現“　　選中窗口中部的...

成本核算excel表格彙總，财務必備

核算成本是一個會計每個月都需要整理的工作，今天小編給大家整理了全套成本核算Excel表格模闆，産品産量月報、固定資産折舊核算表、成本計算表(直接材料)、工資結算彙總表、、成本計算表(一二三車間制造費用...

風電、光伏、儲能電站項目投資，收益自動計算Excel表格

3月16日-3月20日：儲能：儲能電站投資收益分析：儲能表格二：儲能調峰項目經濟性分析：風電：風電場運維費預算：風電表格二：風電年發電量測算（風電必備工具）：風力發電經濟平價測算表格風電表格四水電、風...

兩個excel表格對比，有簡單方法嗎？

一、對比兩個表的項目對應的值是否一緻：excel中有一個大家不常用的功能。利用它我們可以快速對比出兩個表的差異：一個是财務軟件導出的表，要求對比這兩個表同一物品的庫存數量是否一緻。軟件導出表：選取sh...

辦公小技巧：Excel數據列無損合并及靈活組合

我們可以使用連接符或連接函數來進行單元格合并，還可以實現合并内容的靈活組合（如添加自定義間隔符号或其他信息）。1. 用連接運算符與普通标點合并數據列 Excel中的連接符号“還需要與連接符與分隔符、标...

這是Excel中最強大的快捷鍵！按下它，表格立馬自動處理數據！

表格立馬幫你自動處理數據！二、轉換成超級表格後可以實現哪些操作，将光标移動到表格首行或首列處時。即可快速選中表格的整行或整列，在超級表格的末尾添加新數據時，你可以按tab鍵跳到下一個單元格中，生成多個...

沉浸式Excel工作表目錄教程

今天來簡單聊一下如何使用Excel簡單的函數完成工作表目錄和文件目錄的制作！工作表目錄制作教程，使用下面的函數組合公式定義名稱,用于獲取工作表名稱,=REPLACE(GET.WORKBOOK(1),工...

Excel工作表發給同事，避免亂改動，簡單設置小技巧

整個工作表進行保護這種情況下，隻能進行查看，當進行編輯任意單元格的時候，我們隻需要點擊審閱選項卡，然後點擊保護工作表，表格裡面部分數據需要同事協同修改，其它區域不能進行修改，設置方法分兩步就可以完成第...

Excel硬核職業技能：全自動超鍊接工作表目錄！往屆生成功靠這招漲工資

這不小Q就靠一手全自動excel工作表目錄技能，本文先帶你熟悉全自動工作表目錄的功能：點擊目錄即可跳轉至指定工作表，目錄自動更新當工作表名稱被修改後：目錄自動更新當某些工作表被删除後：目錄自動更新當文...

Excel VBA解讀（53）：高級篩選——AdvancedFilter方法

我們先使用Excel的錄制宏工具錄制一段進行高級篩選操作的代碼，先在單元格G1中輸入标題，選擇單元格區域A1”則可以選擇整個數據區域“就用不着每次都要選擇不同的列表區域了”表明将數據複制到由參數Cop...

Excel 中Alt鍵的高手用法 Excel必學技巧

即可一鍵生成柱形圖，Alt加Enter（回車鍵）單元格内強制換行五、Alt加數字鍵輸入符号 (需要在帶有小鍵盤的電腦上操作哦）Alt加41446輸入溫度符号Alt加41409輸入錯号Alt加41420...

VS2010操作Excel2010，報錯解決及讀寫excel

加到模塊std中:#include "CWorksheet.h";#include "CRange.h":5、将以上頭文件的#import "C;\\Program Files\\Microsoft ...

Excel教程：30秒做好Excel超鍊接目錄

工作表前面插入一張空白工作表Sheet。點擊右鍵，查看代碼會激活VBE編輯器界面，點擊插入——模塊，并且複制以下代碼到右邊編輯區。"選擇目錄起始單元格",Excel提示我們是否VB項目，選擇文件保存類...

EXCEL表中随機生成手機号碼（純函數，任意号段）

由于各種各樣的原因，總有需要随機生成數據的時候，今天就介紹一個随機生成手機号碼的案例，廢話少說直接看圖,公式如下,直接在需要随機号碼的單元格中輸入以下公式即可,INDEX({134,177;TEXT(...

Excel VBA引用單元格區域有哪些方法？

VBA中可以使用Range屬性返回單元格或單元格區域,圖 11使用Range屬性引用單元格區域：Range屬性返回活動表的一個區域。使用Cells屬性返回一個Range對象，Cells屬性指定單元格區...

辦公技巧 | 在Word文檔中快速進行表格求和計算

偶爾也會有插入表格并進行計算的需求，雖說我們可以直接将Excel表格中的計算結果粘貼到文檔中，但是有沒有辦法直接在Word中計算呢？同樣可以利用公式對表格中的數據進行計算，首先在Word中創建表格并添...

還在被合并單元格虐？這個Excel“偷懶神器”解決你80%操作難題！

相信用過辦公軟件的小夥伴肯定都有合并和取消單元格的經曆吧！今天就跟大家來聊一下表格中合并單元格與取消合并單元格的那些事，今天主要跟大家介紹一下關于Excel和WPS表格中批量取消\合并單元格的技巧。然...

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

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

這5條Excel超牛公式，幫你搞定87%數據查詢難題

LiRuiExcel520） 微信服務号|跟李銳學Excel（ID：查找引用在工作中的需求太常見了，這篇教程中給大家科普一下工作中适用場景最多的查找引用方法！遇到從一個表格裡按條件查找數據，場景演...

複制浏覽器數據到excel中時較長數字串會變成科學計數法的解決辦法

其他自定義單元格格式 樣式:mso-number-format:\#\#0\.000":"mm\/dd\/yy":01/03/1998:"d\-mmm\-yyyy"?mso-number-format...

Excel 2016數據透視表與條件格式

Excel2016數據透視表應用大全 突出顯示數據透視表中的特定數據 。圖5-40設置條件格式前的數據透視表步驟1選中; 在【背景色】顔色庫中選擇;圖5-43新建格式規則圖...

辦公小技巧：保護Excel數據 重要資料輕松上鎖

可以為特定的單元格設置保護密碼，确保用戶隻能查看指定的内容（圖1）。建立一個分配給每名員工的打開密碼的列表（圖2）。當在A2的數據輸入符合輔助表中對應的密碼字符即C13數值，此時在C2單元格顯示輔助表...

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

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

你會跨工作簿統計嗎？

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

Excel公式技巧01： 使用INDEX函數返回整行或整列

INDEX函數是我們經常使用的函數之一，如果将其行參數或者列參數指定為0（或者忽略）。那麼會返回對指定列或行的引用，這裡返回的不是單個值。返回數據區域A1:=INDEX(A1：返回數據區域A1，即單元...

表頭工作數據區域Cells

上一篇
《紅樓夢》中金陵十二钗判詞解析

下一篇
巴伐利亞的彩繪房屋

有話要說...

最新文章

取消
掃碼支持 支付碼