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

张雄友

xdragon 发表于 2014-8-20 22:04
可以的，把Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)改成selection，就是对选中区域 ...

大师，你太强大了。这样吗？


Sub 原地倒序()
   Dim arr, i&, j%, brr()
   arr = Selection
   ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   For i = 1 To UBound(arr)
      For j = 1 To UBound(arr, 2)
         brr(UBound(arr) - i + 1, UBound(arr, 2) - j + 1) = arr(i, j)
      Next
   Next
   Selection.Resize(UBound(arr), UBound(arr, 2)) = brr
End Sub

xdragon

张雄友 发表于 2014-8-20 22:16
大师，你太强大了。这样吗？

这要看你需要了哈

张雄友

xdragon 发表于 2014-8-20 22:21
这要看你需要了哈

那你认为是怎么样的？请明示，不用客气。

xdragon

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

复制代码

你看看这样行不？

张雄友

xdragon 发表于 2014-8-20 22:33
你看看这样行不？

如果这样会出现：with 块变量未设置。

这样就不会了：Set rng = Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)