VBA代码大全035：如何用vba添加创建用于排序和填充序列的自定义列表？

在excel中内置了许多排序和填充序列的列表，如下图所示；

如果要用vba添加自定义系列，可以使用Application对象的AddCustomList方法。

比如要添加自定义系列”A,B,C,D,E,F,G”，可以使用如下的vba代码：

Sub QQ1722187970()
    arr = Array("A", "B", "C", "D", "E", "F", "G")
    Excel.Application.AddCustomList arr
End Sub

每一个自定义系列在自定义系列列表中都有序号，序号从1开始，比如上图的自定义系列列表中总共有8个自定义系列。

如果要返回所有的自定义系列的个数，可以使用使用Application对象的CustomListCount方法。

如果要返回具体的某个序号的自定义系列，可以使用Application对象的GetCustomListContent方法。

如果要返回具体的某个自定义系列对应的序号，可以使用Application对象的GetCustomListNum方法。

如果要删除某个自定义系列，可以使用Application对象的DeleteCustomList方法。

示例代码如下：

Sub QQ1722187970()
    arr = Array("A", "B", "C", "D", "E", "F", "G")
    Excel.Application.AddCustomList arr
    iNo = Excel.Application.GetCustomListNum(arr)
    Excel.Application.DeleteCustomList iNo
    arr1 = Excel.Application.GetCustomListContents(6)
    MsgBox Excel.Application.CustomListCount
End Sub