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

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-10-14 14:09 | 只看該作者

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

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

附檔

test.rar (13.99 KB)

樓主熱帖

ikboy

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

2^#

發表於 2020-10-14 16:26 | 只看該作者

本帖最後由 ikboy 於 2020-10-14 16:36 編輯

Sub zz()
Dim a, b, c As Object, d As Object, i&, j&, n&, k
Set d = CreateObject("scripting.dictionary")
a = Range("a2:a" & [a65536].End(3).Row).Value
ReDim aa(1 To UBound(a))
For Each b In a
n = Len(b)
d(n) = d(n) & "|" & b
Next
k = d.keys
With Application
For i = 1 To d.Count
n = .Small(k, i)
t = Split(Mid(d(n), 2), "|")
Set c = CreateObject("system.collections.arraylist")
For Each b In t
c.Add b
Next
c.Sort
For Each b In c
j = j + 1
a(j, 1) = b
Next
Next
End With
[d2].Resize(j) = a
End Sub

複製代碼

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

3^#

發表於 2020-10-14 16:54 | 只看該作者

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

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2020-10-15 08:33 | 只看該作者

Sub tt()
Dim Arr, Brr, n&
n = [A65536].End(xlUp).Row
With [B2].Resize(n - 1)
.Formula = "=LEN(A2)"
.Value = .Value
End With
With Range([A1], [B65536].End(xlUp))
Brr = .Value
.Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlYes
Arr = .Value
.Value = Brr
End With
[d1].Resize(UBound(Arr)) = Arr
Range("B2:B" & n) = ""
End Sub

複製代碼

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

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-25

熱烈參與勳章

5^#

發表於 2020-10-15 12:06 | 只看該作者

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

6^#

發表於 2020-10-15 20:37 | 只看該作者

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

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

7^#

發表於 2020-10-16 08:24 | 只看該作者

回復 6# 准提部林

學到一個思考邏輯

謝謝

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

8^#

發表於 2020-10-16 10:39 | 只看該作者

本帖最後由 s13030029 於 2020-10-16 10:46 編輯

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

9^#

發表於 2020-10-16 19:08 | 只看該作者

回復 8# s13030029

邏輯都一樣, 變通一下即可:

Xl0000145.rar (14.48 KB)

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

10^#

發表於 2020-10-17 10:42 | 只看該作者

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