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

su45 · 发表于 2006-8-24 23:06

常看到一些关于多表汇总的提问，经过摸索，找到Consolidate方法，加以完善后，可以有选择地进行多表汇总。贴出来与大家共享。

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

1DVEIdUf.rar (9.55 KB, 下载次数: 3232)

SpeedRat · 发表于 2006-8-25 13:50

不错。不过应再按品种排一下序，那就更容易查看一点。人性化一点。做东西不是能实现就行，还要易用性高一点，人性化一点，互动要多一点，充分考虑用户的需要，这才是编程序之道。

[此贴子已经被作者于2006-8-25 13:52:03编辑过]

reebok888 · 发表于 2006-8-26 08:43

这是同一文件中的表格，能不能不是同一表格的也可以汇总呢

030526sxr · 发表于 2006-8-26 10:31

可不可以在工作薄中用

gybzqy · 发表于 2006-8-26 11:24

如何将一个表的内容选择在另一张工作表中录入，以保持内容的一贯性统一性，以便分析

su45 · 发表于 2006-8-26 23:12

以下是引用reebok888在2006-8-26 8:43:48的发言：
这是同一文件中的表格，能不能不是同一表格的也可以汇总呢

以下是引用030526sxr在2006-8-26 10:31:28的发言：

可不可以在工作薄中用

可以的，请参阅：

http://office.9zp.com/dispbbs.asp?boardid=3&replyid=13803&id=13803&page=1&skin=0&Star=2

[此贴子已经被作者于2006-8-26 23:13:54编辑过]

东TOUCH · 发表于 2006-9-7 20:10

你好，你给的连接现在已经下不了文件，能不能在这里上传上来

女强人_1234 · 发表于 2007-2-1 13:40

能解释一下公式吗?/

爱歌学习 · 发表于 2007-2-1 22:11

确是好东西，马上拿来用[em24]

[此贴子已经被作者于2007-2-1 22:11:53编辑过]

fanrong88 · 发表于 2007-2-3 08:45

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

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

最新热点 /1