会议座位表顺序转换

ni57

各路高手，如图，如何把会议座位表顺序变换，谢谢大家帮忙！

反向复制2023.7.11.zip (28.75 KB, 下载次数: 13)

2023-7-11 12:53 上传

点击文件名下载附件

正向

反向

psxk3535

不知什么原因，结果和你那个有一点点不一样，不知是否符合你的要求

taller

chxw68

1. Sub f2z() '反向-正向
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("反向")
   
5.         r = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
   
6.         c = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
   
7.         arr = .Range("a1").Resize(r, c)
   
8.     End With
   
9.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
10.     brr(UBound(brr), 1) = arr(1, 1)
    
11.     For i = UBound(arr) - 1 To 3 Step -2
    
12.         For j = UBound(arr, 2) To 1 Step -1
    
13.             brr(UBound(arr) - i, UBound(arr, 2) - j + 1) = arr(i, j)
    
14.             brr(UBound(arr) - i + 1, UBound(arr, 2) - j + 1) = arr(i + 1, j)
    
15.         Next
    
16.     Next
    
17.     With Worksheets("正向")
    
18.         .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19.     End With
    
20. End Sub
    
21. 
    

复制代码

chxw68

反向-正向，正向-反向代码都写了。

ni57

顺利解决问题，非常感谢各位老师帮忙，祝大家万事如意！

ni57

chxw68 发表于 2023-7-12 08:01
反向-正向，正向-反向代码都写了。

感谢老师用心解答，座位范围可变，谢谢