[已解决]让数据由小到大，紧凑排列（谢谢老师）

kandhong

老师：
     我想请教的问题是：让数据由小到大，紧凑排列。
     1、X4:Y15为数据区；
     2、AA4:AB15为生成区。
     想要实现的效果是：在生成区自动将数据区内由小到大排列的数据提取出来，并紧凑排列。
       Book1.rar (10.88 KB, 下载次数: 2)

2015-3-27 17:01 上传

点击文件名下载附件
      

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-27 17:12

1. Sub x()
   
2. Dim ar, br(1 To 45000, 1 To 2), x
   
3. ar = Range("x4").CurrentRegion
   
4. For x = 1 To UBound(ar)
   
5.    If ar(x, 1) < ar(x, 2) Then
   
6.      r = r + 1
   
7.      br(r, 1) = ar(x, 1)
   
8.      br(r, 2) = ar(x, 2)
   
9.    End If
   
10. Next
    
11. Range("aa:ab").ClearContents
    
12. [aa4].Resize(r, 2) = br
    
13. [aa4].Resize(r, 2).NumberFormatLocal = "00"
    
14. End Sub

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. Sub x()
   
2. Dim ar, br(1 To 45000, 1 To 2), x
   
3. ar = Range("x4").CurrentRegion
   
4. For x = 1 To UBound(ar)
   
5.    If ar(x, 1) < ar(x, 2) Then
   
6.      r = r + 1
   
7.      br(r, 1) = ar(x, 1)
   
8.      br(r, 2) = ar(x, 2)
   
9.    End If
   
10. Next
    
11. Range("aa:ab").ClearContents
    
12. [aa4].Resize(r, 2) = br
    
13. [aa4].Resize(r, 2).NumberFormatLocal = "00"
    
14. End Sub

复制代码

kandhong

26759761@qq.com 发表于 2015-3-27 17:12

26759761@qq.com 老师：
      您的VBA已收悉，完美之至，正解！！
      老师，还有问题请教：如何数据区为三列数据时，也按由小到大顺序提取，即:只提取A<B<C形式的数据。
       复件 Book1.rar (13.81 KB, 下载次数: 4)

2015-3-27 17:27 上传

点击文件名下载附件
      
      

26759761@qq.com

列数不固定?

kandhong

26759761@qq.com 发表于 2015-3-27 17:29
列数不固定?

26759761@qq.com 老师：
         "数据区"三列数据紧挨着，固定！！

26759761@qq.com

1. Sub x()
   
2. Dim ar, br(1 To 45000, 1 To 3), x
   
3. ar = Range("x4").CurrentRegion
   
4. For x = 1 To UBound(ar)
   
5.    If ar(x, 1) < ar(x, 2) And ar(x, 2) < ar(x, 3) Then
   
6.      r = r + 1
   
7.      br(r, 1) = ar(x, 1)
   
8.      br(r, 2) = ar(x, 2)
   
9.      br(r, 3) = ar(x, 3)
   
10.    End If
    
11. Next
    
12. Range("ab:ad").ClearContents
    
13. [ab4].Resize(r, 3) = br
    
14. [ab4].Resize(r, 3).NumberFormatLocal = "00"
    
15. End Sub

复制代码

kandhong

26759761@qq.com 发表于 2015-3-27 17:40

26759761@qq.com 老师：
       您的大作已拜读，佩服之至！
       老师您，辛苦了！！