VBA对A列按每一行数字从小到大排序

苏子龙

today0427 发表于 2016-9-27 10:33

1. Sub px()
   
2.     Dim ar(1 To 99), arr, i&, j%, cf
   
3.     arr = Sheets("jh").[a1].CurrentRegion.Resize(, 2)
   
4.     For i = 1 To UBound(arr)
   
5.         cf = Split(arr(i, 1), " ")
   
6.         For j = 0 To UBound(cf)
   
7.             ar(cf(j)) = cf(j)
   
8.         Next
   
9.         arr(i, 2) = Application.Trim(Join(ar))
   
10.         Erase ar
    
11.     Next
    
12.     Sheets("jh").Columns("c:c").Clear
    
13.     Sheets("jh").[c1].Resize(UBound(arr), 1) = Application.Index(arr, , 2)
    
14.     Erase arr
    
15. End Sub
    

复制代码

改到99，把所有2位数到概括到

today0427

苏子龙 发表于 2016-9-28 09:48
改到99，把所有2位数到概括到

是可以的，当然如果设为99更为通用，包揽了所有两位数的排序，从这道题来说，我观察最大不超过11，所以设置为11。

laoau138

today0427 发表于 2016-9-28 12:33
是可以的，当然如果设为99更为通用，包揽了所有两位数的排序，从这道题来说，我观察最大不超过11，所以设 ...

today  这两条还没有做       不算太难吧
http://www.excelpx.com/thread-424709-1-1.html

http://www.excelpx.com/thread-424740-1-1.html

today0427

laoau138 发表于 2016-9-28 12:42
today  这两条还没有做       不算太难吧
http://www.excelpx.com/thread-424709-1-1.html

我每天还要学习呢，有空了就做

laoau138

today0427 发表于 2016-9-27 10:33

用VBA行与行循环比较几个数字相同两种方法for each


http://www.excelpx.com/thread-424773-1-1.html