复杂的多表汇总(难度有点大,做出来有分加哦)

自然的家 · 发表于 2010-1-20 14:23

老师们，能在代码后面加上解释吗？让我们大家学习一下。谢谢

彭希仁 · 发表于 2010-1-20 16:36

原帖由 高度保密 于 2010-1-20 10:03 发表
蓝桥的结果和直到清心的结果一模一样，不知版主为何得出两个结论。
653066

结果等于11684,差点把我给误导了

彭希仁 · 发表于 2010-1-20 16:40

原帖由 lgcmeli 于 2010-1-20 12:53 发表
函数公式不能解决吗？问问。

能啊,不过我不会

泓() · 发表于 2010-1-20 19:41

为了减代码行高速度有所减慢

Sub 泓()
Application.ScreenUpdating = False
[2:2].Replace "Z", "V"
Set d = CreateObject("scripting.dictionary")
For n = 1 To 4
With Sheets(n)
Cell = .[b2].Resize(.[b65536].End(xlUp).Row - 2, .[iv2].End(xlToLeft).Column - 2)
For i = 3 To UBound(Cell)
If Cell(i, 1) = "" Then Cell(i, 1) = Cell(i - 1, 1)
For j = 3 To UBound(Cell, 2)
If Cell(1, j) = "" Then Cell(1, j) = Cell(1, j - 1)
c = Cell(i, 1) & Cell(i, 2) & Cell(1, j) & Cell(2, j)
If n = 1 Then
If Not d.exists(c) Then d.Add c, Empty
Else
If d.exists(c) Then d(c) = d(c) + Cell(i, j)
End If
Next
Next
End With
If n = 1 Then a = UBound(Cell) - 2: b = UBound(Cell, 2) - 2
Next
ReDim r(1 To a, 1 To b)
s = d.Items
For i = 0 To d.Count - 1
r(i \ b + 1, i Mod b + 1) = s(i)
Next
[2:2].Replace "V", "Z"
[d4].Resize(a, b) = r
Set d = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

高度保密 · 发表于 2010-1-20 19:41

V128单元格的公式错了（这个公式你一楼附件就是错误的），其余全部一样，蓝桥的程序并没有错。

[ 本帖最后由高度保密于 2010-1-20 19:48 编辑 ]

彭希仁 · 发表于 2010-1-20 21:05

原帖由 高度保密 于 2010-1-20 19:41 发表
V128单元格的公式错了（这个公式你一楼附件就是错误的），其余全部一样，蓝桥的程序并没有错。

不好意思,是我错了,

蓝桥玄霜 · 发表于 2010-1-20 21:12

谢谢25楼的关注，是V128单元格的公式错了，其实原附件的128行前面还有一个单元格的公式也错了。
24楼泓()的字典用得妙！学习了。

彭希仁 · 发表于 2010-1-20 21:50

原帖由 泓() 于 2010-1-20 19:41 发表
为了减代码行高速度有所减慢Sub 泓()
Application.ScreenUpdating = False
[2:2].Replace "Z", "V"
Set d = CreateObject("scripting.dictionary")
For n = 1 To 4
With Sheets(n)
...

思路清晰,非常不错,不过代码最重要的是速度,另外就是兼容性,如果适应各种格式的那样就更好了

[ 本帖最后由彭希仁于 2010-1-20 21:54 编辑 ]

彭希仁 · 发表于 2010-1-20 21:57

原帖由 蓝桥玄霜 于 2010-1-20 21:12 发表
谢谢25楼的关注，是V128单元格的公式错了，其实原附件的128行前面还有一个单元格的公式也错了。
24楼泓()的字典用得妙！学习了。

各位真是仔细啊

gljzyp · 发表于 2010-1-20 22:13

原帖由 自然的家 于 2010-1-20 14:23 发表
老师们，能在代码后面加上解释吗？让我们大家学习一下。谢谢

是的是的！

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

[讨论] 复杂的多表汇总(难度有点大,做出来有分加哦)

支持彭总

回复 22楼彭希仁的帖子

[讨论] 复杂的多表汇总(难度有点大,做出来有分加哦)

支持 彭总

回复 22楼 彭希仁 的帖子

支持彭总

回复 22楼彭希仁的帖子