[發問] VBA 請問字數+字母排序怎麼做

s13030029

如圖所示，請問要如何達到字數少到多，再依字母A-Z進行排序

下載 (8.38 KB)

2020-10-14 14:07

附檔 test.rar (13.99 KB)

下載次數: 25

2020-10-14 14:08

ikboy

1. Sub zz()
   
2. Dim a, b, c As Object, d As Object, i&, j&, n&, k
   
3. Set d = CreateObject("scripting.dictionary")
   
4. a = Range("a2:a" & [a65536].End(3).Row).Value
   
5. ReDim aa(1 To UBound(a))
   
6. For Each b In a
   
7.     n = Len(b)
   
8.     d(n) = d(n) & "|" & b
   
9. Next
   
10. k = d.keys
    
11. With Application
    
12.     For i = 1 To d.Count
    
13.         n = .Small(k, i)
    
14.         t = Split(Mid(d(n), 2), "|")
    
15.         Set c = CreateObject("system.collections.arraylist")
    
16.         For Each b In t
    
17.             c.Add b
    
18.         Next
    
19.         c.Sort
    
20.         For Each b In c
    
21.             j = j + 1
    
22.             a(j, 1) = b
    
23.         Next
    
24.     Next
    
25. End With
    
26. [d2].Resize(j) = a
    
27. End Sub

複製代碼

s13030029

回復 2# ikboy
太神啦!!!
謝謝大大~

samwang

1. Sub tt()
   
2. Dim Arr, Brr, n&
   
3. n = [A65536].End(xlUp).Row
   
4. With [B2].Resize(n - 1)
   
5.     .Formula = "=LEN(A2)"
   
6.     .Value = .Value
   
7. End With
   
8. 
   
9. With Range([A1], [B65536].End(xlUp))
   
10.     Brr = .Value
    
11.     .Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlYes
    
12.     Arr = .Value
    
13.     .Value = Brr
    
14. End With
    
15. 
    
16. [d1].Resize(UBound(Arr)) = Arr
    
17. Range("B2:B" & n) = ""
    
18. End Sub

複製代碼

hcm19522

https://blog.xuite.net/hcm195222/blog/589409936

准提部林

Sub TEST()
With Range([B1], [A65536].End(xlUp))
     .Columns(2) = "=LEN(A1)"
     .Sort Key1:=.Item(2), Order1:=xlAscending, _
           Key2:=.Item(1), Order2:=xlAscending, Header:=xlYes
     .Columns(2).ClearContents
End With
End Sub

Scott090

回復 6# 准提部林

學到一個思考邏輯

   謝謝

s13030029

回復 6# 准提部林
整個縮短很多是沒錯，但是如果我旁邊欄已經有其他資料了，沒辦法在旁邊計算Len()的話要怎麼改???
PS.因為有寫其他程式碼，不方便再做欄位更動

准提部林

回復 8# s13030029

邏輯都一樣, 變通一下即可:
Xl0000145.rar (14.48 KB)

下載次數: 15

2020-10-16 19:08

s13030029

回復 9# 准提部林
准大 Sorry~ 可能我沒有說的很詳細
就是說我只有單純產品編號那欄要重新排序，其他欄的資料不需要一起變動~