標題: [發問] 使用VBA篩選/自訂清單(CustomOrder)的AddCustomList的資料是否可以空白 [打印本頁]

---

作者: av8d    時間: 2022-11-6 22:33     標題: 使用VBA篩選/自訂清單(CustomOrder)的AddCustomList的資料是否可以空白

本帖最後由 av8d 於 2022-11-6 22:48 編輯

以下為巨集自動撰寫，網路上自行爬文修改後的結果
n = Application.CustomListCount
     Application.AddCustomList (Worksheets("工作表2").Range("a2:a3"))

a2:a3，預計會有很多，但是當我改寫成a2:a4時會出錯。(a4是空白)

1.     Range("G2").Select
   
2.     Selection.CurrentRegion.Select
   
3.     ActiveWorkbook.Worksheets("工作表2").Sort.SortFields.Clear
   
4.     n = Application.CustomListCount
   
5.      Application.AddCustomList (Worksheets("工作表2").Range("a2:a3"))
   
6.     ActiveWorkbook.Worksheets("工作表2").Sort.SortFields.Add Key:=Range("G2:G58"), _
   
7.         SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
   
8.         n + 1, DataOption:=xlSortNormal
   
9.     ActiveWorkbook.Worksheets("工作表2").Sort.SortFields.Add Key:=Range("H2:H58"), _
   
10.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
11.     With ActiveWorkbook.Worksheets("工作表2").Sort
    
12.         .SetRange Range("G1:K58")
    
13.         .Header = xlYes
    
14.         .MatchCase = False
    
15.         .Orientation = xlTopToBottom
    
16.         .SortMethod = xlPinYin
    
17.         .Apply
    
18.     End With
    
19.     [F1].Select

複製代碼

---

作者: samwang    時間: 2022-11-7 00:24

回復 1# av8d

請附上檔案，謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)