[原创]可选择的多表汇总方法

jiminyanyan · 发表于 2011-11-21 20:37

学习了。。。

tianyk · 发表于 2011-11-21 21:42

富戈发表于 2008-8-22 17:05
利用  for each sh in ActiveWorkbook.Sheets 的方式比较通用，如果你的工作表不是  1月  2 ...

非常好。学习了。

hfo153 · 发表于 2012-6-12 15:33

确实实用啊!

ixhana123456 · 发表于 2013-1-21 18:56

富戈发表于 2008-8-22 17:05
利用  for each sh in ActiveWorkbook.Sheets 的方式比较通用，如果你的工作表不是  1月  2 ...

可以，用一下把

yangxhhb · 发表于 2013-4-5 21:49

没看懂，水平太低，需努力啊

yangkeyuan66 · 发表于 2013-9-17 14:22

谢谢分享！

33635419 · 发表于 2014-10-17 18:49

Sub mm()
Sheet4.[a4].CurrentRegion.ClearContents
On Error Resume Next
For i = Cells(2, 2) To Cells(2, 4)
m = i & "月"
With Sheets(m)
      j = .[a65536].End(xlUp).Row
      k = .[iv1].End(xlToLeft).Column
      pp = pp & "'" & m & "'!R1C1:R" & j & "C" & k & ","
End With
Next
pp = Left$(pp, Len(pp) - 1)
arr = Split(pp, ",")
Sheet4.[a4].Consolidate arr, xlSum, True, True
Sheet4.[a4] = Sheet1.[a1]
End Sub

我是新手，能讲讲这些VBA代码的意思吗？谢谢了

dbb123 · 发表于 2018-11-13 14:22

请问如果有两行标题第一行不汇总的话代码应该怎么改呢

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

[原创]可选择的多表汇总方法

浏览过的版块