問題是這樣的，在同一個sheet中的多個表格，
表頭欄位名稱一樣，但是表頭欄位順序不一樣，該怎么匯總
圖片是舉例，希望按第一張圖片的表頭匯總到一張sheet中，并且多加一列匯總的各個表格名稱在首列
uj5u.com熱心網友回復：
你這哪來的“表頭”！！！！鬼才知道你的這張表哪列對應那張表的哪列…………
uj5u.com熱心網友回復：
哦，原來“第1行”是表頭啊，先沒注意到。但你的第2圖， 日本的“B列”與匯總不一樣；
第3圖， 仍然是“B列”--日本與美國的資料交換了，這是“筆誤”嗎？
資料對比太費勁，其它的還有沒有問題就不說了……
uj5u.com熱心網友回復：
圖片資料只是打個比方用，隨便填的uj5u.com熱心網友回復：
哪位大神幫忙解答下~~
uj5u.com熱心網友回復：
'你可以把你發的那個例子中名字為“2021”那個作業表的名字改成“標準表”，運行這段代碼試試看看'不能上傳附件太麻煩了
Sub 篩選()
Dim ws As Worksheet, rng1 As Range, rng As Range, a%
Set rng = Sheets("標準表").Range("a1", [a1].End(xlToRight))
For Each ws In Worksheets
If ws.Name <> "標準表" Then
ws.Activate
For Each rng1 In rng
a = ws.Range("1:1").Find(rng1).Column
ws.Range(Cells(2, a), Cells(Rows.Count, a).End(xlUp)).Copy Sheets("標準表").Cells(Rows.Count, rng1.Column).End(xlUp)(2, 1)
Next
End If
rng.Copy Sheets("標準表").Cells(Rows.Count, "a").End(xlUp)(2, 1)
Next
Sheets("標準表").Activate
End Sub
uj5u.com熱心網友回復：
將你的 Excel Sheet 當作 Jet Engine 的外部資料庫表，使用 SQL 查詢陳述句來查詢。資料庫引擎是不在乎欄位順序的。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/45250.html
標籤：VBA
下一篇：語法錯誤！