Question

我不断使用以下代码获得类型不匹配，尤其是SortFields.Add行。我想知道导致这个问题的原因是什么？谢谢！

worksheet.select
With worksheet.Sort
            .SortFields.Clear
            .SortFields.Add(Rng, xlSortOnCellColor, xlAscending, , xlSortNormal). _
                                    SortOnValue.Color = RGB(255, 255, 0)
            .SetRange = consolidated_sheet.Range("A3:K" & row)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

Answer 1

也许你在此之后：

With worksheet.Sort
        .SortFields.Clear
        .SortFields.Add rng, xlSortOnCellColor, xlAscending, , xlSortNormal
        .SortOnValue.Color = RGB(255, 255, 0)
        .SetRange consolidated_sheet.Range("A3:K" & row)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With

在您的代码中，您有：

包含SortFields.Add（）方法参数的不需要的括号
在延续线之前的一个点，而不是相反的

你必须在哪里：

已将rng声明为有效的Range参考

创建排序时键入不匹配

1 个答案: