猛贴--寻找高高手，关于数据转置的问题

qw7566

今天做了回标题党，因为的确想知道如何解决此类问题的方法，具体见附件吧（比较有说服力）

安然祥和

这可能要用SQL，把XX统一价作为“单价”类，XX数量作为“数量”类，把XX计算折扣作为“折扣”类

qw7566

请高手赐教。。。。。。。。

蓝桥玄霜

1. Sub yy()
   
2. Dim Arr, i&, j&, Brr(1 To 10000, 1 To 9)
   
3. Arr = Sheet1.[a1].CurrentRegion
   
4. For i = 2 To UBound(Arr)
   
5.     For j = 8 To UBound(Arr, 2) Step 3
   
6.         If Arr(i, j) <> 0 Then
   
7.             n = n + 1
   
8.             Brr(n, 5) = Left(Arr(1, j), 5)
   
9.             Brr(n, 6) = Mid(Arr(1, j), 6, Len(Arr(1, j)) - 8)
   
10.             Brr(n, 7) = Arr(i, j)
    
11.             Brr(n, 8) = Arr(i, j + 1)
    
12.             Brr(n, 9) = Arr(i, j + 2)
    
13.             Brr(n, 1) = Arr(i, 3)
    
14.             Brr(n, 2) = Arr(i, 4)
    
15.             Brr(n, 3) = Arr(i, 5)
    
16.             Brr(n, 4) = Arr(i, 6)
    
17.         End If
    
18.     Next
    
19. Next
    
20. Sheet2.Activate
    
21. [a2].Resize(10000, 9) = Brr
    
22. End Sub
    
23. 
    

复制代码

qw7566

神作啊。。。。
思维一度定势了，因为最近一直在研究ADO+SQL老想着用SQL解决，却把数组忘到一边了，看来要做大融会贯通还有很远的路啊

gufengaoyue

蓝桥玄霜 数组运用得真好！

我数组还要多学习。

我的思路差不多那样。看看

整理数据.zip (15.41 KB, 下载次数: 40)

2011-1-14 14:16 上传

点击文件名下载附件

[ 本帖最后由 gufengaoyue 于 2011-1-14 14:16 编辑 ]

wuxiang_123

用SQL难