av8d

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-8-17 16:50 | 只看該作者

[發問] 遞增排序A1~A10，如何讓A1後面是A2而不是A10。

'A:F遞增排序
ActiveSheet.Columns("A:F").Select
Selection.Sort Key1:=ActiveSheet.Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal

複製代碼

以上是遞增排序的巨集~
但是排序後~資料內有A1.XXXXX~A10.XXXXXXX
遞增排序~卻是
A1.XXXXX
A10.XXXXX
A2.XXXXXXX

如何讓它變成
A1.XXXXXX
A2.XXXXX

樓主熱帖

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

2^#

發表於 2012-8-17 17:01 | 只看該作者

回復 1# av8d

意思是 A2和A10相同的C欄值?
試試這個

ActiveSheet.Columns("A:F").Sort Key1:=ActiveSheet.Range("C2"), Order1:=xlAscending, Key2:=[A1], Order:=xlAscending

複製代碼

若上傳附檔可能會更了解你的問題
另外建議不要整欄選起來排序效率會很差=~=

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2012-8-17 17:39 | 只看該作者

回復 1# av8d
基本上資料含有非數值字元時，就以文字排序，要以數值排序必須加輔助欄位取得數值，然後以該輔助欄位排序

Sort.rar (8.53 KB)

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

4^#

發表於 2012-8-19 15:01 | 只看該作者

回復 3# Hsieh

由於C欄除了有A1~A20外~還有B1~B20~和C1~C20等...
如果我將test隱藏~是否可以針對他排序呢?謝謝!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-8-19 21:21 | 只看該作者

回復 4# av8d
於工具->選項->自訂清單新增清單  A1,A2,,,,A10,,,  清單  B1,B2,,,,B10,,, 清單  C1,C2,,,,C10,,,,

Range("B2:B9").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=12, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlStroke, DataOption1:=xlSortNormal
-- OrderCustom:=12 --  12 為第一個新增清單的索引值依序為 13 ,14....
新增清單

排序圖

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

6^#

發表於 2012-8-19 21:46 | 只看該作者

回復 5# GBKEE

我的是2010版~可是找不到選項->自訂清單->匯入

我記得以前有使用過~我再找看看^^ 謝謝G大!

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

7^#

發表於 2012-8-19 21:50 | 只看該作者

回復 GBKEE

我的是2010版~可是找不到選項->自訂清單->匯入

我記得以前有使用過~我再找看看^^ ...
av8d 發表於 2012-8-19 21:46

找到了~選項->進階->編輯自訂清單~謝謝G大!

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

8^#

發表於 2012-8-19 21:55 | 只看該作者

回復 5# GBKEE

好像不能A1~A20且B1~B20且C1~C20~
是因為過長?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-8-19 22:56 | 只看該作者

本帖最後由 Hsieh 於 2012-8-19 23:02 編輯

回復 8# av8d
G2=--SUBSTITUTE(A2,MID(A2,1,LOOKUP(2,1/ISERROR(--MID(A2,ROW(INDIRECT("A1:A"&LEN(A2))),1)),ROW(INDIRECT("A1:A"&LEN(A2))))),"")

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

10^#

發表於 2012-8-21 16:05 | 只看該作者

回復 9# Hsieh

如果是一般
1.XXXX
2.XXXX
8.XXXX
11.XXXX

怎麼排序卻是
1.XXXX
11.XXXX
2.XXXX
8.XXXX

TOP