12
返回列表 上一主題 發帖

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

av8d

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

GBKEE

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

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

Hsieh

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

lalalada

帖子
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欄值?
試試這個
  1. ActiveSheet.Columns("A:F").Sort Key1:=ActiveSheet.Range("C2"), Order1:=xlAscending, Key2:=[A1], Order:=xlAscending
複製代碼
若上傳附檔可能會更了解你的問題
另外建議不要整欄選起來排序 效率會很差=~=

TOP

        靜思自在 : 原諒別人就是善待自己。
12
返回列表 上一主題