按表头汇总不同sheet中数据

Ocean198809

如附件所示，想达到的效果是，将后面的多个sheet的内容合并到命名为“汇总”的sheet中，并按照表格第一列“工点代码”进行排序，自己参考本网上大神的代码做了一个，结果运行过程出错，烦请哪位高手修改一下代码，谢谢！（上传表格仅设置了2个源数据sheet,实际使用过程会有很多个）

最好简单解释一下，哪儿不对，不胜感激！

LMY123

'http://club.excelhome.net/thread-898218-1-1.html
Sub 字典法_同薄多表_标题行相同_数据自动复制()
    Dim arr, brr(), sh As Worksheet, i&, j&, m&, n&, d As Object, c
    Set d = CreateObject("scripting.dictionary")
    arr = Range("A1").CurrentRegion
    For j = 1 To UBound(arr, 2)
        d(arr(1, j)) = j
    Next
    ReDim brr(1 To 60000, 1 To UBound(arr, 2))
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then
            arr = sh.Range("A1").CurrentRegion
            n = m
            For j = 1 To UBound(arr, 2)
                c = d(arr(1, j))
                If c <> "" Then
                    m = n
                    For i = 2 To UBound(arr)
                        m = m + 1
                        brr(m, c) = arr(i, j)
                    Next
                End If
            Next
        End If
    Next
    ActiveSheet.UsedRange.Offset(1).ClearContents
    Range("A2").Resize(m, UBound(brr, 2)) = brr
End Sub

LMY123

风险源汇总.rar (18.39 KB, 下载次数: 95)

2018-9-5 10:34 上传

点击文件名下载附件

abc123281

代码仅供测试参考


风险源汇总123.rar (17.6 KB, 下载次数: 32)

2018-9-5 10:44 上传

点击文件名下载附件