[已解决]分类汇总的一些问题

当年一役

先行谢过了！

1、如何把表1转换成表2的形式

2、表2中，“钢材”如何按照“型号规格”对“金额”进行分类汇总

3、表2中，如何按“购进月份”对“金额”分类汇总

附件.rar (22.74 KB, 下载次数: 12)

2014-6-18 10:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-6-18 13:27

为方便计，全部做在表1里。请看附件。

跳转到最佳答案楼层

tgydslr

分类汇总要求表格不能有合并单元格，表1并不适合，包括数据透视表
可以通过公式或vba来做

baksy

格式可以如下变更，
在表1的sheet2工作表输入以下公式；
A2=INDEX(Sheet1!A:A,(INT((ROW()-2)/4))+4)
B2="2014年"&MOD(ROW()-2,4)+2&"月"
C2=OFFSET(Sheet1!$A$3,INT((ROW()-2)/4)+1,(MOD(ROW()-2,4)+2)*2+1,)
D2=OFFSET(Sheet1!$A$3,INT((ROW()-2)/4)+1,(MOD(ROW()-2,4)+2)*2+2,)

公式下拉。

当年一役

tgydslr 发表于 2014-6-18 11:15
分类汇总要求表格不能有合并单元格，表1并不适合，包括数据透视表
可以通过公式或vba来做

没说表1要分类汇总啊，我问的是表2该怎么做分类汇总……

当年一役

baksy 发表于 2014-6-18 11:30
格式可以如下变更，
在表1的sheet2工作表输入以下公式；
A2=INDEX(Sheet1!A:A,(INT((ROW()-2)/4))+4)

{:1112:}

tgydslr

当年一役 发表于 2014-6-18 11:32
没说表1要分类汇总啊，我问的是表2该怎么做分类汇总……

分类汇总？

grf1973

表1 生成 表2 样式的代码：

1. Sub 生成竖表()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 7)
   
4.     For i = 4 To UBound(arr) - 1
   
5.         gg = arr(i, 1): dw = arr(i, 3)
   
6.         For j = 4 To UBound(arr, 2) - 3 Step 2
   
7.             rq = arr(2, j)
   
8.             If arr(i, j) > 0 Then
   
9.                 n = n + 1
   
10.                 brr(n, 1) = "钢材": brr(n, 2) = gg: brr(n, 3) = rq
    
11.                 brr(n, 4) = dw: brr(n, 5) = arr(i, j): brr(n, 6) = arr(i, j + 1)
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     Sheet2.[a2].Resize(n, 7) = brr
    
16.     Sheet2.Activate
    
17. End Sub
    

复制代码

grf1973

两个分类汇总的代码

1. Sub 钢材按规格分类汇总()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         If arr(i, 1) = "钢材" Then
   
6.             d(arr(i, 2)) = d(arr(i, 2)) + arr(i, 6)
   
7.         End If
   
8.     Next
   
9.     [i:j].ClearContents
   
10.     [i1].Resize(1, 2) = Array("钢材规格", "金额")
    
11.     [i2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
12. End Sub
    
13. 
    
14. Sub 按购进月份分类汇总()
    
15.     arr = [a1].CurrentRegion
    
16.     Set d = CreateObject("scripting.dictionary")
    
17.     For i = 2 To UBound(arr)
    
18.             d(arr(i, 3)) = d(arr(i, 3)) + arr(i, 6)
    
19.     Next
    
20.     [i:j].ClearContents
    
21.     [i1].Resize(1, 2) = Array("购进月份", "金额")
    
22.     [i2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
23. End Sub
    

复制代码

grf1973

为方便计，全部做在表1里。请看附件。