多个相同 excel表格数据自动汇总到一个不同格式的工作簿

柯尼斯堡

多个相同 excel表格数据自动汇总到一个不同格式的工作簿

柯尼斯堡

请求各位大神指点迷津

3190496160

这个问题，就是一个繁琐的力气活，要汇总的项目达35项，工作量太大了，

3190496160

Sub 汇总()
Dim sh As Worksheet
Dim ar As Variant
Dim arr()
ReDim arr(1 To Sheets.Count - 1, 1 To 35)
For Each sh In Sheets
    If sh.Name <> "汇总表" Then
        ar = sh.Range("a1:l64")
        n = n + 1
        arr(n, 1) = n
        arr(n, 2) = ar(3, 2)
        arr(n, 3) = ar(5, 2)
        arr(n, 4) = ar(7, 2)
        arr(n, 5) = ar(9, 2)
        arr(n, 6) = ar(7, 5)
        arr(n, 7) = ar(9, 5)
        arr(n, 8) = ar(9, 9)
        '''以下自己一样画葫芦吧
    End If
Next sh
With Sheets("汇总表")
    .UsedRange.Offset(3) = Empty
    .[a4].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "ok!"
End Sub

3190496160

只写了一个框架，余下的自己依样画葫芦吧
收入测算表2022.5.9.rar (35.07 KB, 下载次数: 7)

2022-5-9 22:39 上传

点击文件名下载附件

柯尼斯堡

老铁能不能 帮忙做两个  我参考一下

柯尼斯堡

3190496160 发表于 2022-5-9 22:40
只写了一个框架，余下的自己依样画葫芦吧

恳求老铁先扔个葫芦过来，我好画瓢