新安装的Excel 2016缺少排序方法

我们办公室的一台计算机上安装的Excel似乎有问题

我有VBA代码，可以对特定的工作表进行排序。在那台机器上，我得到一个运行时9或运行时438错误

我使用开发者工具栏录制了一个排序宏。我发现那台机器缺少.Sort方法。请参阅下面不起作用的代码。请注意缺少“.Sort”和介于（“RSVP报告”）和SetFirstPriority之间的双周期

Sub Macro1()
'
' Macro1 Macro

ActiveSheet.("RSVP Report")..SetFirstPriority.
ActiveSheet.("RSVP Report")..SetFirstPriority.Add  := Range("A2:A23"), Value _
    := xlSortOnValues, Query := xlDescending,  := xlSortNormal
ActiveSheet.("RSVP Report")..SetFirstPriority.Add  := Range("C2:C23"), Value _
    := xlSortOnValues, Query := xlAscending,  := xlSortNormal
ActiveSheet.("RSVP Report")..SetFirstPriority.Add  := Range("B2:B23"), Value _
    := xlSortOnValues, Query := xlAscending,  := xlSortNormal
With ActiveSheet.("RSVP Report").
    .SetLastPriority Range("A1:P23")
    .StopIfTrue = xlYes
    .Type = False
    . = xlTopToBottom
    .ScopeType = xlPinYin
    .Delete
End With
End Sub

请参阅在我的机器上记录的有效代码。注意.Sort的存在

Sub Macro2()
'
' Macro2 Macro

Range("A1:P23").Select
ActiveWorkbook.Worksheets("RSVP Report").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RSVP Report").Sort.SortFields.Add Key:=Range( _
    "A2:A23"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal
ActiveWorkbook.Worksheets("RSVP Report").Sort.SortFields.Add Key:=Range( _
    "C2:C23"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
ActiveWorkbook.Worksheets("RSVP Report").Sort.SortFields.Add Key:=Range( _
    "B2:B23"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
With ActiveWorkbook.Worksheets("RSVP Report").Sort
    .SetRange Range("A1:P23")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

从安装选项来看，这两台机器之间的一切似乎都是一样的。如何添加缺少的模块

---

希望回复不会是“卸载并重新安装”。我正在尝试与我们的技术部门联系，因为他们的解决方案可能不及时或没有帮助。

在没有显示排序的计算机上，工作簿是否缺少任何参考？我曾经遇到过这样的问题：缺少的引用导致完全不相关的函数在运行时无法识别。也许这也会影响宏记录器。

我在一台安装了新Office 2016的机器上遇到了同样的问题，该机器运行的是Office 2010中编写的宏代码。我尝试在Excel 2016中记录排序例程，结果与原始帖子中显示的结果相同

此后，我发现该代码在不同的Office 2016计算机上运行，但Office从2010年升级到2016年。2016是唯一安装在损坏机器上的版本。升级后的计算机具有“C:\Program files（x86）\Common files\Microsoft Shared”结构中的OFFICE14和OFFICE16文件。这台坏了的机器只有办公室。把OFFICE14文件复制到坏掉的机器上也没用

---

虽然我可以通过卸载2016，然后安装2010并升级到2016来解决这个问题，但似乎应该有更好的方法。如果有人有更好的方法来解决这个问题，请告诉我们！谢谢。

以前安装了2010并不是解决方案。我下载了MS Windows 10版本1809安装介质，并在新的虚拟机上安装了Win10 Pro，然后安装了所有Windows更新，使其尽可能接近我的问题电脑。然后安装了Office 2016，宏运行正常。从那时起我就比较

• 已安装的应用程序-虚拟机有一堆膨胀软件游戏，可供PC使用 没有（谢谢你，女士！）。除此之外，虚拟机上没有 电脑没有
• 安装可选功能-如果它在VM上，它也在PC上
• 为Office 2016安装的功能-它们完全相同
• 通过控制面板->程序和功能-同样，如果它在虚拟机上，它在PC上
• 通过控制面板->程序和功能->打开和关闭Windows功能-虚拟机没有启用.NET Framework 3.5，所以我启用了它，重新启动，宏仍然可以工作

哦，为了记录它，我对Office安装进行了修复，但没有任何帮助

---

因此，这个谜一直存在。有问题的电脑是一台戴尔电脑，装有OEM安装的Windows Home，我已将其升级为Pro。接下来的步骤（除非在我到达之前有人有解决方案）包括找到一个备用硬盘，并将系统还原到出厂规格，以查看问题是否与OEM Windows安装有关。

这一问题已经解决，尽管解决方案仍然是个谜。在对office 2010和2016进行了多次卸载/安装/修复后，最终从MS运行了一个.NET修复程序，Excel 2016宏排序操作现在开始工作。我怀疑.NET补丁（）可能一直都是解决方案，尽管直到深入到联合国的安装和修复操作中，我才收到任何表明需要它的错误。

我第一次看到这一点，我遇到了宏记录器无法记录“SaveAS”的问题在某台计算机和另一台计算机上，也不会记录条件格式。我一直无法找到原因或解决方案。