[已解决]有没有办法能将汇总出的数据以这个样式显示？？？

80013025

汇总后数据显示问题.rar (14.59 KB, 下载次数: 19)

2014-10-21 22:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-22 05:06

………………

跳转到最佳答案楼层

这儿有肥猫

新建一个数组，如果ubound>45,就放入另一个数组

80013025

这儿有肥猫 发表于 2014-10-21 22:40
新建一个数组，如果ubound>45,就放入另一个数组

QING请老师帮我写一个好吗？

这儿有肥猫

晚上喝多了，头晕写不成，如果今晚没人帮你，明天我帮你写一个

80013025

这儿有肥猫 发表于 2014-10-21 22:58
晚上喝多了，头晕写不成，如果今晚没人帮你，明天我帮你写一个

好的，先先谢谢了

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&, s&, h%, l%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("aa5").CurrentRegion
   
5. Const hs As Integer = 38 '打印行数
   
6. ReDim brr(1 To UBound(arr), 1 To 2)
   
7. For i = 2 To UBound(arr)
   
8.     If Not d.exists(arr(i, 1)) Then
   
9.         s = s + 1
   
10.         d(arr(i, 1)) = s
    
11.         brr(s, 1) = arr(i, 1)
    
12.         brr(s, 2) = arr(i, 2)
    
13.     Else
    
14.         brr(d(arr(i, 1)), 2) = brr(d(arr(i, 1)), 2) + arr(i, 2)
    
15.     End If
    
16. Next
    
17. n = (s \ hs + 1) * 2
    
18. ReDim crr(1 To hs, 1 To n)
    
19. For i = 1 To s
    
20.     h = (i - 1) Mod hs + 1
    
21.     l = ((i - 1) \ hs) * 2 + 1
    
22.     crr(h, l) = brr(i, 1)
    
23.     crr(h, l + 1) = brr(i, 2)
    
24. Next
    
25. Range("b8").Resize(hs, n) = crr
    
26. End Sub

复制代码

dsmch

………………

baksy

函数解决~
B8单元格复制以下公式，三键回车(公式复制后,点一下公式编辑栏的任意位置,先按住 ctrl、shift 两个键,然后敲enter键)，
横拉、下拉；
=IF(MOD(COLUMN(),2)=0,IF(MAX(B$7:B7)=MAX(结算模板!$AA:$AA),"",INDEX(结算模板!$AA$1:$AA$86,SMALL(IF(MATCH(结算模板!$AA$6:$AA$86,结算模板!$AA$6:$AA$86,)=ROW(结算模板!$AA$6:$AA$86)-5,ROW(结算模板!$AA$6:$AA$86)),INT((COLUMN()-2)/2)*38+ROW(A1)))),IF(A8="","",TEXT(SUMIF(结算模板!$AA:$AA,结算打印!A8,结算模板!$AB:$AB),"0!,000.00")))

80013025

dsmch 发表于 2014-10-22 05:06
………………

老师，请在这个问题上，再小小改动下

可以把预收金额也一并汇总过来

http://www.excelpx.com/thread-333390-1-1.html

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&, s&, h%, l%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("aa5").CurrentRegion
   
5. Const hs As Integer = 38 '打印行数
   
6. ReDim brr(1 To UBound(arr), 1 To 3)
   
7. For i = 2 To UBound(arr)
   
8.     If Not d.exists(arr(i, 1)) Then
   
9.         s = s + 1
   
10.         d(arr(i, 1)) = s
    
11.         brr(s, 1) = arr(i, 1)
    
12.         brr(s, 2) = arr(i, 2)
    
13.         brr(s, 3) = arr(i, 3)
    
14.     Else
    
15.         brr(d(arr(i, 1)), 2) = brr(d(arr(i, 1)), 2) + arr(i, 2)
    
16.         brr(d(arr(i, 1)), 3) = brr(d(arr(i, 1)), 3) + arr(i, 3)
    
17.     End If
    
18. Next
    
19. n = (s \ hs + 1) * 3
    
20. ReDim crr(1 To hs, 1 To n)
    
21. For i = 1 To s
    
22.     h = (i - 1) Mod hs + 1
    
23.     l = ((i - 1) \ hs) * 3 + 1
    
24.     crr(h, l) = brr(i, 1)
    
25.     crr(h, l + 1) = brr(i, 2)
    
26.     crr(h, l + 2) = brr(i, 3)
    
27. Next
    
28. Range("b8").Resize(hs, n) = crr
    
29. End Sub

复制代码