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

柯尼斯堡 · 发表于 2022-5-9 21:51

柯尼斯堡 · 发表于 2022-5-9 21:52

请求各位大神指点迷津

3190496160 · 发表于 2022-5-9 22:27

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

3190496160 · 发表于 2022-5-9 22:38

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 22:40

只写了一个框架，余下的自己依样画葫芦吧

收入测算表2022.5.9.rar (35.07 KB, 下载次数: 7)

柯尼斯堡 · 发表于 2022-5-10 07:00

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

柯尼斯堡 · 发表于 2022-5-10 07:13

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

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

		自动登录	找回密码
密码			免费注册