[已解决]数据倒置

刘洪裕

你好帮我看一下数据怎么倒置过来，

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-22 18:51

1. Sub 转置()
   
2.     Dim arr, arr2, ub1&, ub2&, i&, j&
   
3.     arr = Range("b3:i26")
   
4.     arr2 = Range("b3:i26")
   
5.     ub1 = UBound(arr)
   
6.     ub2 = UBound(arr, 2)
   
7.     For i = 1 To ub1
   
8.         For j = 1 To ub2
   
9.             arr2(i, j) = arr(ub1 + 1 - i, ub2 + 1 - j)
   
10.         Next
    
11.     Next
    
12.     Stop
    
13.     Range("u3").Resize(ub1, ub2) = arr2
    
14.     Range("u3").CurrentRegion.Columns.AutoFit
    
15. End Sub

复制代码

跳转到最佳答案楼层

JLxiangwei

tomle

倒序排列下              

suye1010

1. =OFFSET(B$3,COUNT(B$3:B$26)-COUNT(B$3:B3),)

复制代码

公式请在第三行任意单元格输入，拖动填充跟源区域一样大小即可。

hwc2ycy

1. Sub 转置()
   
2.     Dim arr, arr2, ub1&, ub2&, i&, j&
   
3.     arr = Range("b3:i26")
   
4.     arr2 = Range("b3:i26")
   
5.     ub1 = UBound(arr)
   
6.     ub2 = UBound(arr, 2)
   
7.     For i = 1 To ub1
   
8.         For j = 1 To ub2
   
9.             arr2(i, j) = arr(ub1 + 1 - i, ub2 + 1 - j)
   
10.         Next
    
11.     Next
    
12.     Stop
    
13.     Range("u3").Resize(ub1, ub2) = arr2
    
14.     Range("u3").CurrentRegion.Columns.AutoFit
    
15. End Sub

复制代码

hwc2ycy

如果只是行的转置就简单多了，这个是呈对角线的转置。

tomle

就一个排序的问题，函数VBA啥的都来了，这不大炮打蚊子吗，真让人感慨。