【VBA】求助表头字段名称都一样，只是顺序不一样的多个sheet如何汇总？

[weixin_42289774]

问题是这样的，在同一个sheet中的多个表格，
表头字段名称一样，但是表头字段顺序不一样，该怎么汇总

图片是举例，希望按第一张图片的表头汇总到一张sheet中，并且多加一列汇总的各个表格名称在首列

[舉杯邀明月]

你这哪来的“表头”！！！！ 鬼才知道你的这张表哪列对应那张表的哪列…………

[舉杯邀明月]

哦，原来“第1行”是表头啊，先没注意到。 但你的第2图，　日本的“B列”与汇总不一样； 第3图，　仍然是“B列”--日本与美国的数据交换了，这是“笔误”吗？ 数据对比太费劲，其它的还有没有问题就不说了……

[weixin_42289774]

图片数据只是打个比方用，随便填的

[weixin_42289774]

哪位大神帮忙解答下~~

[浪殒]

'你可以把你发的那个例子中名字为“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

[of123]

将你的 Excel Sheet 当作 Jet Engine 的外部数据库表，使用 SQL 查询语句来查询。数据库引擎是不在乎字段顺序的。