如何把字表数据自动提取到汇总表

xihuake

各位大佬，

我现有需求，要将3张明细表自动汇总到汇总跟踪表里，由于明细表各栏位置不同，无法直接复制。

希望借助VBA实现明细表黏贴台账，汇总跟踪表按指定排列顺序自动填列，谢谢。

3190496160

按你的说明，应该是个字典匹配的问题，但是，比如，一开始的  品类，在三个分表中的找不到嘛

xihuake

3190496160 发表于 2021-1-21 21:23
按你的说明，应该是个字典匹配的问题，但是，比如，一开始的  品类，在三个分表中的找不到嘛

是的，品类我原想法是根据取得数据的表格名称自动对应填列，但有难度。

我已删除，重新上传了，目的就是，更新明细表，汇总跟踪表自动把3个明细表的台账按顺序填列，明细表的列表顺序各不相同，谢谢。

3190496160

Sub 匹配()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("汇总跟踪")
    .[a1].CurrentRegion.Offset(1) = Empty
    ar = .Range("a1:z10000")
    For j = 1 To UBound(ar, 2)
        If Trim(ar(1, j)) <> "" Then
            d(Trim(ar(1, j))) = j
        End If
    Next j
    n = 1
    For Each sh In Sheets
        If sh.Index > 1 Then
            br = sh.[a1].CurrentRegion
            For i = 2 To UBound(br)
                If Trim(br(i, 1)) <> "" Then
                    n = n + 1
                    For j = 1 To UBound(br, 2)
                        m = d(Trim(br(1, j)))
                        If m <> "" Then
                            ar(n, m) = br(i, j)
                        End If
                    Next j
                End If
            Next i
        End If
    Next sh
    .[a1].Resize(n, UBound(ar, 2)) = ar
End With
MsgBox "ok!"
End Sub

3190496160

各个分表的列字段名称不一致，你得先统一分表列字段名称，并且，汇总表的列字段名称必须跟分表一致，
测试.rar (24.02 KB, 下载次数: 23)

2021-1-22 07:34 上传

点击文件名下载附件

mxscgwh

谢谢分享！！！！！！！！！！！！！！！

xihuake

3190496160 发表于 2021-1-22 07:34
各个分表的列字段名称不一致，你得先统一分表列字段名称，并且，汇总表的列字段名称必须跟分表一致，

确实，如果同样的表头，可以自动提取。