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

ycb20010823

我的自定义排序VBA代码，在Excel2007上运行正常，为啥在Excel2013或者Excel2016上运行后再保存，就提示“Microsoft Excel已停止工作”的对话框呢，然后Excel就是重启了，所有的操作都没有保存下来，这个代码在Excel2007上运行正常呢？

请各位老现给看一下代码出错的原因在哪里，谢谢！！

最佳答案

月排行榜 / 总排行榜

爱疯

2017-9-28 11:00

'用指定列中的序列自定义排序
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，没法试

跳转到最佳答案楼层

ycb20010823

各位老师，没有测试一下吗？

ycb20010823

自己顶一下，别沉了

ycb20010823

office2013以上运行再保存，就提示错误，我想知道，代码错在哪里，如何修改一下，谢谢各位老师！！

ycb20010823

没有老师帮我一下吗？

ycb20010823

为什么代码就是运行不了呢？

jiahb2001

没装2013

ycb20010823

安装excel2013或excel2016，运行这段代码，都提示错误！！

hhzjxss

我安装了2003，运行是正常的，没有问题呀！

ycb20010823

hhzjxss 发表于 2017-9-22 11:45
我安装了2003，运行是正常的，没有问题呀！

是Excel 2013！