[已解决]自定义排序代码出错问题

爱疯

'用指定列中的序列自定义排序
Sub test()
    Dim n As Integer
    '获取自定义序列的个数
    n = Application.CustomListCount

    '1）如果指定序列不存在，则添加
    Sheets(1).Select
    If Application.GetCustomListContents(n)(1) <> [b4] Then
        Application.AddCustomList Range("B4:B49")
    End If

    '2）排序
    Sheets(2).Select
    Range("a2:c" & Range("c65536").End(xlUp).Row).Sort key1:=Range("b1"), OrderCustom:=n + 1

    '3）删除该序列
    Application.DeleteCustomList n + 1
End Sub





没装2013，没法试

d346836673

ycb20010823 发表于 2017-9-27 17:00
删除这句运行一次是可以了，下次运行就提示错误了；我也试了另种方式的自定义排序代码，也是运行正常，保 ...

那你把Application.DeleteCustomList注释掉。
然后在Application.AddCustomList前面加一行On Error Resume Next，防止重复自定义相同的序列报错
这样就可以正常运行，且不会报错了！