[已解决]对一区域数据实现倒序

张雄友

对一区域数据实现倒序.

最佳答案

月排行榜 / 总排行榜

xdragon

2014-8-20 22:33

1. Sub 原地倒序()
   
2.     Dim arr, i&, j%, brr(),rng as range
   
3.     set rng = Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)
   
4.     arr=rng.value
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     For i = 1 To UBound(arr)
   
7.        For j = 1 To UBound(arr, 2)
   
8.           brr(UBound(arr) - i + 1, UBound(arr, 2) - j + 1) = arr(i, j)
   
9.        Next
   
10.     Next
    
11.     rng = brr
    
12. End Sub

复制代码

你看看这样行不？

跳转到最佳答案楼层

这儿有肥猫

附件   

张雄友

这儿有肥猫 发表于 2014-8-20 21:05
附件

谢谢，但是现实中我极端讨厌使用  row()  column() 这种飘忽不定的函数，要么直接指定区域。

这儿有肥猫

张雄友 发表于 2014-8-20 21:29
谢谢，但是现实中我极端讨厌使用  row()  column() 这种飘忽不定的函数，要么直接指定区域。

哈哈，你管它白猫黑猫呢，抓住老鼠就是好猫

这儿有肥猫

其实用VBA数组也很容易实现

张雄友

这儿有肥猫 发表于 2014-8-20 21:43
其实用VBA数组也很容易实现

期待。

这儿有肥猫

很容易实现

xdragon

1. Sub t()
   
2.    Dim arr, i&, j%, brr()
   
3.    arr = Application.InputBox("请选择源区域", "温馨提示", , , , , , 8).Value
   
4.    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.    For i = 1 To UBound(arr)
   
6.       For j = 1 To UBound(arr, 2)
   
7.          brr(UBound(arr) - i + 1, UBound(arr, 2) - j + 1) = arr(i, j)
   
8.       Next
   
9.    Next
   
10.    Application.InputBox("请选择源区域", "温馨提示", , , , , , 8).Resize(UBound(arr), UBound(arr, 2)) = brr
    
11. End Sub

复制代码

支持多行多列

张雄友

xdragon 发表于 2014-8-20 21:55
支持多行多列

xdragon，太强大了，对了，能不能在原地倒序的。就是选中哪些数据就在原地倒序。

xdragon

可以的，把Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)改成selection，就是对选中区域的倒序，这个你根据需要自己设置吧。

如果是需要对Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)原地排序，需要加个对象变量
set rng=Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)
arr=rng.value
...
rng=brr
就可以了。