[已解决]列数据往下对齐的问题

阿瑛

附件 往下对齐附件.zip (5.59 KB, 下载次数: 5)

2015-1-6 14:38 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

xdragon

2015-1-6 14:51

1. Sub 向下对齐()
   
2.     Dim arr, col%, i%, irow%, re()
   
3.     arr = Range("A1").CurrentRegion.Value
   
4.     ReDim re(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.     For col = 1 To UBound(arr, 2)
   
6.          i = UBound(arr)
   
7.          Do Until Len(arr(i, col))
   
8.              i = i - 1
   
9.          Loop
   
10.          For irow = i To 1 Step -1
    
11.              re(UBound(arr) - i + irow, col) = arr(irow, col)
    
12.          Next
    
13.     Next
    
14.     Range("A1").Resize(UBound(arr), UBound(arr, 2)) = re
    
15. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub 向下对齐()
   
2.     Dim arr, col%, i%, irow%, re()
   
3.     arr = Range("A1").CurrentRegion.Value
   
4.     ReDim re(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.     For col = 1 To UBound(arr, 2)
   
6.          i = UBound(arr)
   
7.          Do Until Len(arr(i, col))
   
8.              i = i - 1
   
9.          Loop
   
10.          For irow = i To 1 Step -1
    
11.              re(UBound(arr) - i + irow, col) = arr(irow, col)
    
12.          Next
    
13.     Next
    
14.     Range("A1").Resize(UBound(arr), UBound(arr, 2)) = re
    
15. End Sub

复制代码