如何将普通表变为交叉表

jjmysjg

小花鹿 发表于 2015-7-3 12:19
Sub test()
Dim d1, d2, d3, ar, i&, j&, d1k, d2k, br, s
Set d1 = CreateObject("scripting.dictionary ...

谢谢小花鹿老师！
就是这个效果

jjmysjg

zax010 发表于 2015-7-3 15:07
>>>>>>>>>>>>>>>>>>>>>>>>

谢谢zax010老师！
就是这样的结果

LMY123

二维表转交叉表

chengshanming

zax010 发表于 2015-7-3 15:07
>>>>>>>>>>>>>>>>>>>>>>>>

大师好！如果是字典需要提取多列数据，以下代码该如何写？

1. Sub csm()
   
2. Dim i&, d(1 To 3), arr, brr, j&
   
3. tt = Timer
   
4. For i = 1 To UBound(d)
   
5.     Set d(i) = CreateObject("scripting.dictionary")
   
6.     Next
   
7. arr = Sheet1.UsedRange.Value
   
8. For i = 2 To UBound(arr, 1)
   
9. 'brr = Array(arr(i, 4), arr(i, 5), arr(i, 9), arr(i, 10), arr(i, 11), arr(i, 12), arr(i, 13), arr(i, 14), arr(i, 15), arr(i, 16))
   
10. brr = arr(i, 4)
    
11. d(1)(arr(i, 3)) = brr
    
12. d(2)(arr(i, 24)) = arr(i, 24)
    
13. 'd(3)(arr(i, 3) & arr(i, 24)) = d(3)(arr(i, 3) & arr(i, 24)) + arr(i, 26)
    
14. Next
    
15. With Sheets("透视汇总")
    
16.   .UsedRange.Cells.ClearContents
    
17.   For j = 0 To UBound(brr)
    
18.   .[a2].Resize(d(1).Count, j + 1) = Application.Transpose(Array(d(1).Keys, d(1)(j).Items))
    
19.   Next
    
20.     End With
    
21. Application.ScreenUpdating = True
    
22. MsgBox "计算完毕,共用时" & Format(Timer - tt, "00") & "秒!"
    
23. End Sub
    

复制代码

chengshanming

zax010 发表于 2015-7-3 15:07
>>>>>>>>>>>>>>>>>>>>>>>>

1. ‘大师好！如何需要提取多列数据，代码需要如何改写？

复制代码