Excel宏导致异常行为

Question

嗨，Excel宏中有相当新的内容，我正在使用自动过滤器对其进行排序。 当我尝试使用错误的工作表中显示的数据时，它可以正常工作并满足我的要求。 反正这是我的宏

Sub Hide_Unassigned()
Worksheets("Resource View (2)").Activate
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row

ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort. _
    SortFields.Add Key:=Range("Z1:Z200"), SortOn:=xlSortOnValues, Order:= _
    xlDescending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
On Error Resume Next
For Each c In Range("D1:D" & LastRow)
If c.Value = "Unassigned" Then
    c.EntireRow.Hidden = True
Else
    c.EntireRow.Hidden = False
End If

Next
    ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort. _
    SortFields.Add Key:=Range("D1:D200"), SortOn:=xlSortOnValues, Order:= _
    xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
On Error GoTo 0
Application.EnableEvents = True
End Sub

正如我所说，一切正常，除了当我尝试对主数据中的数据进行重新排序时，它显示在资源视图（2）工作表中。 然后只需将其拖动即可将其删除，但我认为这还不够。

预先感谢您的任何建议或帮助

Answer 1

遇到了麻烦，当我访问主数据表本身时，通过简单地移动要调用的宏的最后部分，就设法对自己进行了排序。

Answer 2

不要使用Active(anything) 。 这就是您要做的事情。

加：

Dim MstrDataWS as Worksheet
Dim ResWS as Worksheet
Set ResWS = Worksheets("Resource View (2)")
Set MstrDataWS = ActiveWorkbook.Worksheets("Master Data")

然后，每次您要引用一个或另一个工作表时，请根据需要使用MstrDataWS或ResWS 。 这将确保您引用正确的工作表。 它还允许您消除对.Activate和.Select所有引用。

另外， Cells()和Range()引用的是活动工作表，因此您可能会迷路。 调整这些命令以适当使用ResWS.Cells()或MstrDataWS.Cells() 。