VBA合并数据表中的数据

aksufyy

工作簿中第二、第三张表，是明细数据，需要汇总到第一张表上，第一张表的格式已固定，目前难点：第二、第三张表中的单位名称不一致，且顺序不同，我尝试使用数组合并，但是不成功，请老师指点。

不规则结构

Sub 查询()
Call 清除
c = Sheets(1).[aaa2].End(xlToLeft).Column
For i = 2 To c Step 2
    st = Split(Sheets(1).Cells(2, i), "-")(1)
    For j = 2 To Sheets.Count
        Set st1 = Sheets(j).[a2:aaa2].Find(st)
        If Not st1 Is Nothing Then cc = st1.Column
        For k = 4 To 24
            Sheets(1).Cells(k, i) = Sheets(1).Cells(k, i) + Sheets(j).Cells(k, cc)
            Sheets(1).Cells(k, i + 1) = Sheets(1).Cells(k, i + 1) + Sheets(j).Cells(k, cc + 1)
        Next
    Next
Next
End Sub
Sub 清除()
ar = Sheets("区县汇总报表").[b3].CurrentRegion
[b3:U3].Offset(1, 0).Resize(UBound(ar, 1), UBound(ar, 2)).ClearContents
End Sub
工作表用的find。数组的话写起来麻烦点，循环加比对获取关键字（instr或like）所在列数即可

quqiyuan

行数据标题跟数据源一样，这个就没管，列标题顺序不一样，这个做了汇总，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("区县汇总报表")
    Set Rng = sht.[a2].CurrentRegion
    Rng.Offset(2, 1).ClearContents
    arr = Rng.Value
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr, 2) Step 2
        s = arr(1, i)
        If Not d.exists(s) Then
            d(s) = i
        End If
    Next
    For Each sh In wb.Sheets
        If InStr(sh.Name, "区县汇总报表") = 0 Then
            r = sh.Cells(Rows.Count, 2).End(3).Row
            c = sh.Cells(3, Columns.Count).End(1).Column
            brr = sh.Range(sh.[a2], sh.Cells(r, c))
            For i = 3 To UBound(brr, 2) Step 2
                s = brr(1, i)
                s = Mid(s, InStr(s, "-") + 1)
                If d.exists(s) Then
                    m = d(s)
                    For k = 3 To UBound(arr)
                        arr(k, m) = arr(k, m) + brr(k, i)
                        arr(k, m + 1) = arr(k, m + 1) + brr(k, i + 1)
                    Next
                End If
            Next
        End If
    Next
    Rng.Value = arr
    Set d = Nothing
    Beep
End Sub

ykcbf1100

字段名尽量搞成统一，不然，多生枝节

ykcbf1100

参与一下。。。

蓝桥玄霜

汇总的例子：