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

自然的家

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

彭希仁

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

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

彭希仁

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

能啊,不过我不会

泓()

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

1. Sub 泓()
   
2.     Application.ScreenUpdating = False
   
3.     [2:2].Replace "Z", "V"
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For n = 1 To 4
   
6.         With Sheets(n)
   
7.             Cell = .[b2].Resize(.[b65536].End(xlUp).Row - 2, .[iv2].End(xlToLeft).Column - 2)
   
8.             For i = 3 To UBound(Cell)
   
9.                 If Cell(i, 1) = "" Then Cell(i, 1) = Cell(i - 1, 1)
   
10.                 For j = 3 To UBound(Cell, 2)
    
11.                     If Cell(1, j) = "" Then Cell(1, j) = Cell(1, j - 1)
    
12.                     c = Cell(i, 1) & Cell(i, 2) & Cell(1, j) & Cell(2, j)
    
13.                     If n = 1 Then
    
14.                         If Not d.exists(c) Then d.Add c, Empty
    
15.                     Else
    
16.                         If d.exists(c) Then d(c) = d(c) + Cell(i, j)
    
17.                     End If
    
18.                 Next
    
19.             Next
    
20.         End With
    
21.         If n = 1 Then a = UBound(Cell) - 2: b = UBound(Cell, 2) - 2
    
22.     Next
    
23.     ReDim r(1 To a, 1 To b)
    
24.     s = d.Items
    
25.     For i = 0 To d.Count - 1
    
26.         r(i \ b + 1, i Mod b + 1) = s(i)
    
27.     Next
    
28.     [2:2].Replace "V", "Z"
    
29.     [d4].Resize(a, b) = r
    
30.     Set d = Nothing
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码

高度保密

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

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

彭希仁

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

不好意思,是我错了,

蓝桥玄霜

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

彭希仁

原帖由 泓() 于 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:12 发表
谢谢25楼的关注，是V128单元格的公式错了，其实原附件的128行前面还有一个单元格的公式也错了。
24楼泓()的字典用得妙！学习了。

各位真是仔细啊

gljzyp

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

是的是的！