请问这个怎么解决？excel vba，错误438，对象不支持该属性或方法。

[weixin_45177242]

这是上级部门发给我单位的一个工作表，在他们的电脑上能正常运行，在我单位单位电脑我挨个试遍了都是错误438，上级部门是win10+ office2016，我自己用wps2019和office2016分别在won7和win10上都试过，均无法运行，请问是怎么回事？代码如下： Sheets("未结件").Select
ActiveWorkbook.Worksheets("未结件").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("未结件").Sort.SortFields.Add2 Key:=Range("H1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal —这是运行失败的一行。
With ActiveWorkbook.Worksheets("未结件").Sort
.SetRange Range("A1:L2000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

[weixin_45177242]

引用 楼主 weixin_45177242的回复:

这是上级部门发给我单位的一个工作表，在他们的电脑上能正常运行，在我单位单位电脑我挨个试遍了都是错误438，上级部门是win10+ office2016，我自己用wps2019和office2016分别在won7和win10上都试过，均无法运行，请问是怎么回事？代码如下： Sheets("未结件").Select
ActiveWorkbook.Worksheets("未结件").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("未结件").Sort.SortFields.Add2 Key:=Range("H1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal —这是运行失败的一行。
With ActiveWorkbook.Worksheets("未结件").Sort
.SetRange Range("A1:L2000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

另外，工作表里其他排序的部分均出现这个错误

[milaoshu1020]

试验office的时候要把wps卸载了;

[qq_42342275]

[意大利二号]

把：“Sort.SortFields.Add2 Key:”替换成“Sort.SortFields.Add Key:”。