[已解决]行列转换

鄱湖人2013121

如何将表２还原表１

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-1 03:32

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr(1 To 20000, 1 To 5), i&, j%, k%, s&
   
3. arr = Sheet2.Range("b2").CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2) Step 4
   
6.         If arr(i, j) <> "" Then
   
7.             s = s + 1
   
8.             For k = 0 To 3
   
9.                 brr(s, k + 1) = arr(i, j + k)
   
10.             Next
    
11.             brr(s, 5) = s + 110
    
12.         End If
    
13.     Next
    
14. Next
    
15. Range("l2").Resize(s, 5) = brr
    
16. End Sub
    

复制代码

dsmch

………………

张雄友

dsmch 发表于 2014-4-1 03:31

数据第5列是从111开始的自然数递增等差数列，用代码：brr(s, 5) = s + 110

如果是无规律的数字呢？怎么变通？

dsmch

张雄友 发表于 2014-4-1 20:23
数据第5列是从111开始的自然数递增等差数列，用代码：brr(s, 5) = s + 110

如果是无规律的 ...

这个要求貌似没有道理，实在要这样做，产生随机数

张雄友

dsmch 发表于 2014-4-1 20:28
这个要求貌似没有道理，实在要这样做，产生随机数

大师可能没看明白我的意思，我是指怎么不用代码直接复制之类的？

dsmch

源数据和第五列看似没有一点渊源，不清楚这个数据出至哪里

鄱湖人2013121

为什么组一多,就会"运行时错误9,下标越界"