清除首表

• 如果每个表都是每个工作表中的第一个表，则以下内容将完成此工作。

Option Explicit

Sub clearFirstTables()
    
    Const Cols As String = "[[Start Time]:[Holiday]]"
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim ws As Worksheet
    
    For Each ws In wb.Worksheets
        On Error Resume Next
        ws.Range(ws.ListObjects(1).Name & Cols).ClearContents
        On Error GoTo 0
    Next ws

End Sub

或者，如果每个工作表有多个表，或者它们不是第一个表，则可以使用此方法：

Sub clearAllTables()
    
    Const Cols As String = "[[Start Time]:[Holiday]]"
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim ws As Worksheet
    Dim tbl As ListObject
    
    For Each ws In wb.Worksheets
        For Each tbl In ws.ListObjects
            On Error Resume Next
            ws.Range(tbl.Name & Cols).ClearContents
            On Error GoTo 0
        Next tbl
    Next ws

End Sub