- 帖子
- 705
- 主題
- 277
- 精華
- 0
- 積分
- 1008
- 點名
- 1
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-6-30
- 最後登錄
- 2024-12-24
|
[發問] 使用VBA篩選/自訂清單(CustomOrder)的AddCustomList的資料是否可以空白
本帖最後由 av8d 於 2022-11-6 22:48 編輯
以下為巨集自動撰寫，網路上自行爬文修改後的結果
n = Application.CustomListCount
Application.AddCustomList (Worksheets("工作表2").Range("a2:a3"))
a2:a3，預計會有很多，但是當我改寫成a2:a4時會出錯。(a4是空白)- Range("G2").Select
- Selection.CurrentRegion.Select
- ActiveWorkbook.Worksheets("工作表2").Sort.SortFields.Clear
- n = Application.CustomListCount
- Application.AddCustomList (Worksheets("工作表2").Range("a2:a3"))
- ActiveWorkbook.Worksheets("工作表2").Sort.SortFields.Add Key:=Range("G2:G58"), _
- SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
- n + 1, DataOption:=xlSortNormal
- ActiveWorkbook.Worksheets("工作表2").Sort.SortFields.Add Key:=Range("H2:H58"), _
- SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
- With ActiveWorkbook.Worksheets("工作表2").Sort
- .SetRange Range("G1:K58")
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- [F1].Select
|
|
發表於 2022-11-6 22:33
| 
