　暱稱: 伊恩

帖子: 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)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

20^#

發表於 2023-6-6 15:10 | 只看該作者

回復 11# 准提部林

謝謝論壇,謝謝前輩
後學藉此帖學習前輩的方案,將方案設計為同字數後再排序,學習方案如下,請前輩再指導

前輩指導的方法:

後學延伸學習的方法:

Option Explicit
Sub TEST_A4()
Dim R&, Arr, LN&, i&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A2:A" & R)
   Arr = .Value
   For i = 1 To .Count
      LN = 10 - Len(Arr(i, 1))
      Arr(i, 1) = Application.Rept("|", LN) & Arr(i, 1)
   Next i
   .Value = Arr
   .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
   .Replace "|", "", Lookat:=xlPart
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

19^#

發表於 2020-11-9 08:47 | 只看該作者

回復 18# samwang
謝謝大大解決了我的問題~~感激不盡!!

TOP

samwang

大學生 Rank: 4

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

18^#

發表於 2020-11-9 08:26 | 只看該作者

回復 14# s13030029

借用准大修改如下
Sub TEST()
Dim R&, Arr, LN&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A2:A" & R)
Arr = .Value
For i = 1 To .Count
      ipos = InStr(5, Arr(i, 1), "-")
      If ipos > o Then
         xR = Mid(Arr(i, 1), 1, ipos - 1)
         Arr(i, 1) = 100 + IIf(LN = 0, 99, ipos - 1) & "|" & Arr(i, 1)
      Else
         LN = Len(Arr(i, 1))
         Arr(i, 1) = 100 + IIf(LN = 0, 99, LN) & "|" & Arr(i, 1)
      End If
   Next i
   .Value = Arr
   .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
   .Replace "*|", "", Lookat:=xlPart
End With
End Sub

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

17^#

發表於 2020-11-6 20:15 | 只看該作者

回復 16# s13030029
看起來結果是一樣的一般排序也可以
Range(Cells(Rows.Count, 1).End(xlDown), Cells(2, 1)).Sort Cells(2, 1)

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

16^#

發表於 2020-11-6 17:20 | 只看該作者

回復 15# 准提部林
因為之前是依字數所以OAE-008-3這種較長的會在最後

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

15^#

發表於 2020-11-6 13:01 | 只看該作者

回復 14# s13030029

看文字有規律, 直接排序不行嗎???
或者有其它狀況, 上傳檔案看看~~

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

14^#

發表於 2020-11-6 11:57 | 只看該作者

回復 13# 准提部林
准大您好~
我有新的問題想請教，就是說我的產品編號有 "OAE-008-3" 這種的
如果要做字母及編號大小排序的話要怎麼改?
排序前                      排序後
A001                            A001
B001                            B001
OCB-001                   OAE-007-1
OBB-001                   OAE-008-2
OAE-008-3                OAE-008-3
OAE-012                   OAE-012
OAE-007-1                OBB-001
OAE-008-2                OCB-001

TOP

准提部林