创建排序时类型不匹配

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参考