行数据对应部分列数据互换位置

转角处的沉思

请教如图，位置1和位置2两列上都有ABCD四个位置参考信息，以A为老大，B老二，C老三，D老四，当某行信息位置1中顺序错位（举例,老二在位置1，老大在位置2）时，将对应行的位置1所在的F-H列数据与位置2所在的K-M列数据互换位置，即最终效果是按辈分大的均要在位置1区域出现。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 6).End(xlUp).Row
   
6.         arr = .Range("f16:m" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             If arr(i, 1) > arr(i, 6) Then
   
9.                 For j = 1 To 3
   
10.                     temp = arr(i, j)
    
11.                     arr(i, j) = arr(i, j + 5)
    
12.                     arr(i, j + 5) = temp
    
13.                 Next
    
14.             End If
    
15.         Next
    
16.         .Range("f16").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.     End With
    
18. End Sub
    

复制代码

chxw68

详见附件。

转角处的沉思

chxw68 发表于 2023-11-18 10:05
详见附件。

感谢诸老师出手，运行完美。

gwjkkkkk

请参考 。。。

转角处的沉思

gwjkkkkk 发表于 2023-11-18 10:42
请参考 。。。

感谢帮助，效果同样完美，不过运行结束会有一个音响一下，是设置什么吗

gwjkkkkk

转角处的沉思 发表于 2023-11-18 10:52
感谢帮助，效果同样完美，不过运行结束会有一个音响一下，是设置什么吗

提醒一下，完成了。。。

转角处的沉思

chxw68 发表于 2023-11-18 10:05
详见附件。

诸老师，再次请教下，如H或M列数据含正号在最前面的情况运行好正号会消失，能否让其正常显示，谢谢。