.ShowAllData 在所有其他人删除后剩余 sheet

Question

我正在尝试删除标题不是“PR11_P3”的任何 sheet。

在剩余的 sheet 中有一个 table “PR11_P3_Tabell”，它现在总是被过滤或以某种方式排序，这就是我试图恢复的.ShowAllData.

Sub DeleteSheetRestoreSort()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "PR11_P3" Then
            ws.Delete
        Then
            ActiveSheet.ShowAllData
        End If
    Next ws
   
End Sub

Answer 1

无法保证ActiveSheet就是您要清除的sheet。请改用 ws。

Sub DeleteSheetRestoreSort()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "PR11_P3" Then
            ws.Delete
        Else
            If ws.filtermode then
                ws.ShowAllData
            End If
        End If
    Next ws
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

.ShowAllData 在所有其他人删除后剩余 sheet

.ShowAllData on remaining sheet after all others deleted

excel

vba