麻辣家族討論版版 » Office不分區 » excel 中文+數字的排序

返回列表下一主題上一主題發帖

[發問] excel 中文+數字的排序

中學生 Rank: 2

帖子: 21
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: W10
軟體版本: OFFICE2007
閱讀權限: 20
註冊時間: 2021-7-4
最後登錄: 2021-8-12

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2021-7-29 06:23 | 只看該作者

[發問] excel 中文+數字的排序

每次客戶給我的資料會有甲1~甲1000以上
跟乙1~乙1000以上
總共會有2000筆資料以上
排序是亂的

我想要排成
甲1~甲1000多再來乙1~乙1000多

如果用內建的排序A~Z
會變成乙1乙10乙100......甲998甲999
變成這樣的排序

用內建的排序Z~A
會變成甲999甲998.......乙100乙10乙1

本來想用自訂清單的功能
但數量好像有限制

用內建的自訂清單有個甲，乙，丙......
但排了也還是乙在前面

樓主熱帖

收藏

中學生 Rank: 2

帖子: 21
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: W10
軟體版本: OFFICE2007
閱讀權限: 20
註冊時間: 2021-7-4
最後登錄: 2021-8-12

6^#

發表於 2021-7-30 20:51 | 只看該作者

回復 5# samwang

成功了
這個方式也很方便!!!
感謝分享~

大學生 Rank: 4

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

5^#

發表於 2021-7-30 18:17 | 只看該作者

回復 1# e86137

資料A欄(A1是項目，從A2開始是資料甲或乙)，請測試看看，謝謝

Sub test()
Dim Arr, i&
Arr = Range([c1], [a65536].End(3))
For i = 2 To UBound(Arr)
Arr(i, 2) = Left(Arr(i, 1), 1)
Arr(i, 3) = Mid(Arr(i, 1), 2)
Next
[a1].Resize(UBound(Arr), 3) = Arr
With [a1].Resize(UBound(Arr), 3)
.Sort Key1:=.Item(2), Order1:=2, _
Key2:=.Item(3), Order2:=1, Header:=xlYes
End With
Range("B2:C" & UBound(Arr)) = ""
End Sub

大學生 Rank: 4

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

熱烈參與勳章

4^#

發表於 2021-7-29 10:17 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589920080

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

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

3^#

發表於 2021-7-29 09:19 | 只看該作者

回復 1# e86137

如果資料在A欄
1.複製一份到B欄
2.另複製一份到D欄
3.B欄選取以甲做為分隔符號剖析得到C欄數字
4.D欄選取以乙做為分隔符號剖析得到E欄數字
5.以C.E欄做排序
以上參考

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

大學生 Rank: 4

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

2^#

發表於 2021-7-29 07:41 | 只看該作者

回復 1# e86137

建議可以甲、乙資料分開各別排序後再結合一起，謝謝

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題