SQL转置练习，转置九式。【开贴】

香川群子

转置-9 要求： 二维数据表 按照相同项目进行最大3列的折叠式展开，
其中第1列第1行为项目名称，第1列第2行要求统计数据个数，即： 总共(n人)

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Column = 1 And Target.Row > 16 And Target = "" Then
   
4.         arr = Sheets(1).[a1].CurrentRegion
   
5.         m = UBound(arr)
   
6.         ReDim brr(1 To m * 2, m)
   
7.         For i = 1 To m
   
8.             For j = 1 To m * 2 Step 2
   
9.                 If arr(i, 1) = brr(j, 0) Or brr(j, 0) = "" Then
   
10.                     If j > l Then l = j
    
11.                     For K = 1 To m
    
12.                         If brr(j, K) = "" Then
    
13.                             If K > n Then n = K
    
14.                             brr(j, 0) = arr(i, 1)
    
15.                             brr(j, K) = arr(i, 2)
    
16.                             brr(j + 1, 0) = brr(j + 1, 0) + 1
    
17.                             GoTo Nxt
    
18.                         End If
    
19.                     Next
    
20.                 End If
    
21.             Next
    
22. Nxt:
    
23.         Next
    
24.         
    
25.         For j = 1 To l Step 2
    
26.             brr(j + 1, 0) = ChrW(24635) & ChrW(20849) & "(" & brr(j + 1, 0) & ChrW(20154) & ")"
    
27.         Next
    
28.         
    
29.         ReDim brr2(1 To m * 2, -1 To 2)
    
30.         K = 0
    
31.         For i = 1 To l Step 2
    
32.             brr2(K + 1, -1) = brr(i, 0)
    
33.             brr2(K + 2, -1) = brr(i + 1, 0)
    
34.             For j = 0 To n - 1
    
35.                 If brr(i, j + 1) = "" Then If j < 4 Then K = K + 1: Exit For
    
36.                 If j Mod 3 = 0 Then K = K + 1
    
37.                 brr2(K, j Mod 3) = brr(i, j + 1)
    
38.             Next
    
39.         Next
    
40.         Target.Resize(K, 4) = brr2
    
41.     End If
    
42. End Sub
    

复制代码

ieguh

Mark一下{:soso_e156:}

ysqhdh

学习一下，楼主辛苦

ugvcel2000

{:soso_e189:}学习学习

zhanghuihui2010

难难难，哪天我要是能做出来，就好了。最近发现自己的水平下降了。而且脑袋也很不好使。

sonnen2004

{:soso__887792365130514653_4:} 看看

豆豆宝宝

学习学习，先试试做

zhongjitiyan

看到这些语句，脑子就大了

makeriches

学习学习！

非常易6868

手机看不方便，还是要丁一下。