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

laoau138

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

today0427

1. Sub px()
   
2.     Dim ar(1 To 11), 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.         For j = 1 To UBound(ar)
   
10.             If ar(j) <> "" Then arr(i, 2) = arr(i, 2) & ar(j) & " "
    
11.         Next
    
12.         Erase ar
    
13.     Next
    
14.     Sheets("jh").Columns("c:c").Clear
    
15.     Sheets("jh").[c1].Resize(UBound(arr), 1) = Application.Index(arr, , 2)
    
16. End Sub
    

复制代码

laoau138

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

today

再做一条

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

today0427

你别着急评最佳呀 我还想看看大神们更好的思路呢[em01]

laoau138

today0427 发表于 2016-9-27 12:48
你别着急评最佳呀 我还想看看大神们更好的思路呢

我也要看啊，你已经成为大神了

today0427

像我这种瞎蹦跶的才不是大神，我只是想抛个砖，引来个玉，大神多得很，隐藏在民间，就看你有没有发现神的眼睛

1. Sub rg()
   
2. Dim arr, i&, j%, cf, str$, s
   
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.             str = str & Replace(Format(cf(j) - 1, "0"), "10", "&")
   
8.         Next
   
9.    
   
10.     With CreateObject("vbscript.regexp")
    
11.         .Pattern = "[^" & str & "]"
    
12.         .Global = True
    
13.         s = .Replace("0123456789&", "")
    
14.         For j = 1 To Len(s)
    
15.             arr(i, 2) = arr(i, 2) & Format(IIf(Mid(s, j, 1) = "&", 10, Mid(s, j, 1)) + 1, "00") & " "
    
16.         Next
    
17.     End With
    
18.         str = ""
    
19.     Next
    
20.     Sheets("jh").Columns("c:c").Clear
    
21.     Sheets("jh").[c1].Resize(UBound(arr), 1) = Application.Index(arr, , 2)
    
22. End Sub

复制代码

感觉这个办法一点也不好，必须要受数据源的限制，好在你就只有个11，再多这个办法也做不了了
也就是图个拓展思路

laoau138

today0427 发表于 2016-9-27 13:34
像我这种瞎蹦跶的才不是大神，我只是想抛个砖，引来个玉，大神多得很，隐藏在民间，就看你有没有发现神的眼 ...

你比我强10倍，所以你可以进入高手级别了

today0427

laoau138 发表于 2016-9-27 13:37
你比我强10倍，所以你可以进入高手级别了

首先肯定强不了你十倍，大家都深藏不露，就算是，那我也还根本没摸到高手的脚趾头，越学越觉得自己其实啥也不会这才说明你刚刚入了门。

laoau138

today0427 发表于 2016-9-27 13:45
首先肯定强不了你十倍，大家都深藏不露，就算是，那我也还根本没摸到高手的脚趾头，越学越觉得自己其实啥 ...

在VBA领域，全中国也没有一个人比你强10倍

QCW911

today0427 发表于 2016-9-27 13:34
像我这种瞎蹦跶的才不是大神，我只是想抛个砖，引来个玉，大神多得很，隐藏在民间，就看你有没有发现神的眼 ...

晕，忘点加分了