[已解决]根据条件，两列数据中某些单元格数据互换

暖气团

假如第四列中某一单元格中数据小于第五列同行的数据，例如D3<E3,则D3和E3单元格中的数据互换

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-4-4 19:37

1. Sub test()
   
2. Dim ar, x, ls
   
3.   ar = Range("a1").CurrentRegion
   
4.    For x = 2 To UBound(ar)
   
5.      If ar(x, 4) < ar(x, 5) Then
   
6.        ls = ar(x, 5): ar(x, 5) = ar(x, 4): ar(x, 4) = ls
   
7.      End If
   
8.    Next
   
9. Range("i1").Resize(UBound(ar), UBound(ar, 2)) = ar
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. Sub test()
   
2. Dim ar, x, ls
   
3.   ar = Range("a1").CurrentRegion
   
4.    For x = 2 To UBound(ar)
   
5.      If ar(x, 4) < ar(x, 5) Then
   
6.        ls = ar(x, 5): ar(x, 5) = ar(x, 4): ar(x, 4) = ls
   
7.      End If
   
8.    Next
   
9. Range("i1").Resize(UBound(ar), UBound(ar, 2)) = ar
   
10. End Sub
    

复制代码

暖气团

26759761@qq.com 发表于 2015-4-4 19:37

谢谢~