本机录制的宏，到另一台电脑运行错误，求大神指导

木木1999

本机录制的按月份排序的宏，本机使用正常，换公司的电脑就运行错误
复制过来代码月份显示？？了，在vba里显示的是一月到十二月


    Cells.Select
    ActiveWorkbook.Worksheets("Sheet12").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet12").Sort.SortFields.Add2 Key:=Range( _
        "D2:D1033"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "???,????,????,????,????,????,????,????,????,???,????,?????", DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet12").Sort
        .SetRange Range("A1:K1033")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

约定的童话

那么多问号，乱码了吧

木木1999

约定的童话 发表于 2020-4-5 15:46
那么多问号，乱码了吧

没有，问号是一到十二月排序，在vba里看着是汉字，出来就是问号了。

kucoor

unicode，语言问题

木木1999

kucoor 发表于 2020-4-5 19:46
unicode，语言问题

怎么解决呢

木木1999

别沉啊，求某列按月份升序排列代码

953427

SortFields.Add2 改为 SortFields.Add，就好了，我也是遇到这个问题，但不知道为什么。Add2 与 Add 有什么区别，同一个版本的office2016 excel，一个电脑用Add2可以，另一个却要Add。