挑战性问题！表头顺序不同（但表头字段相同）的多个表格如何汇总？着急！感谢大神！

monstere2

举例：表一 表头： A B C D E：表二 表头：A D C E；表三 表头：B D E；表头下都是记录的各种对应信息啦！实际的表格多大30个，如何才能让excel按照表头自动将对应信息汇总，对于例子中的表二 在没有B列的情况下，汇总时保留空白即可，请大神救我！非常感谢！

chxw68

请上传附件，这个用字典方法很好实现。

monstere2

chxw68 发表于 2014-3-6 17:03
请上传附件，这个用字典方法很好实现。

您好！真是太感谢了！附件是一份表头很全的，另一份是缺失的，谢谢谢谢！
附件.zip (33.94 KB, 下载次数: 60)

2014-3-8 14:06 上传

点击文件名下载附件

chxw68

monstere2 发表于 2014-3-8 14:07
您好！真是太感谢了！附件是一份表头很全的，另一份是缺失的，谢谢谢谢！

两个表格不要合计吧？只是按字段纵向粘贴到一起就行了吧？

monstere2

chxw68 发表于 2014-3-8 15:29
两个表格不要合计吧？只是按字段纵向粘贴到一起就行了吧？

是的是的，不用合计，只汇总罗列就可以的！非常感谢！

chxw68

每个表头是固定不变还是经常会变的？有没表头最全的一个表？

dsmch

1. Dim s&
   
2. Sub Macro1()
   
3. On Error Resume Next
   
4. s = s + 1
   
5. If s > 1 Then Exit Sub
   
6. Dim arr, brr, wb As Workbook, d, j%, n&
   
7. Set d = CreateObject("scripting.dictionary")
   
8. arr = Range("a1").CurrentRegion
   
9. n = UBound(arr) + 1
   
10. For j = 1 To UBound(arr, 2)
    
11.     d(arr(1, j)) = j
    
12. Next
    
13. Set wb = GetObject(ThisWorkbook.Path & "\dec.6,7.07.xls")
    
14. brr = wb.Sheets(1).Range("a1").CurrentRegion
    
15. For j = 1 To UBound(brr, 2)
    
16.     wb.Sheets(1).Cells(2, j).Resize(UBound(brr)).Copy Cells(n, d(brr(1, j)))
    
17. Next
    
18. wb.Close 0
    
19. End Sub
    

复制代码

dsmch

有两列字段名不同，请检查

monstere2

dsmch 发表于 2014-3-8 20:54
有两列字段名不同，请检查

我检查了一下，没找到，不知道您指的是SHIPPER COUNTRY SHIPPER COUNTY这两列吗？如果是的话，那原本是这样的，代表的是不同的意思^_^非常感谢！

monstere2

chxw68 发表于 2014-3-8 20:41
每个表头是固定不变还是经常会变的？有没表头最全的一个表？

您好！我筛选的最全的表头为：
DEST.CITY
DEST.COUNTRY
DIMENSION WEIGHT
POSTAL CODE
REVENUE
SERVICE TYPE
SHIP DATE
SHIPMENT WEIGHT
SHIPPER BUILDING
SHIPPER CITY
SHIPPER COUNTRY
SHIPPER COUNTY
SHIPPER FAX NUMBER
SHIPPER NAME
SHIPPER NUMBER
SHIPPER PHONE NUMBER
SHIPPER STREET
SORT DATE
这18项，各表的表头顺序会变但是表头字段相同