如何删除vba中的所有自定义sorting列表？

我想在vba excel中删除所有（=可变数量的）自定义sorting列表，但是我无法在任何地方find正确的语法。

我知道两个select：

1编写一个自动删除所有自定义sorting列表的命令，这是我的尝试：

Application.DeleteCustomList () 

2.a编写一个返回自定义sorting列表数量的命令= b

2.b然后使用以下命令手动删除自定义sorting列表：

2.B.1：

 for del = 0 to b Application.DeleteCustomList (del) next del 

2.B.2：

 for del = 1 to b Application.DeleteCustomList (del) next del 

2.C

 For delete_lists = 100 To 0 Step -1 On Error Resume Next 'delete_list Application.DeleteCustomList (delete_lists) Next delete_lists 

有没有人知道（ny）有效的方式来实现这个目标？

亲切的问候。

Answer 1

您的问题是Excel不希望您删除基本的现有自定义列表。 我的Excel中有4个 – 但是从一个版本到另一个版本可能会有所不同。

（一周中的几天，几个月等…如果你去“文件”，“选项”，“高级选项”，然后在“编辑海关名单”底部）

我认为你最安全的select是在错误的情况下继续下一步：

 Sub test() On Error Resume Next Dim i As Long For i = 1 To Application.CustomListCount Application.DeleteCustomList (i) Next i On error GoTo 0 End Sub 

或者，如果你有一些error handling程序，请去errHandler – 否则它可能会继续下一步为您的整个脚本，可能不是你想要的。