使用VBA删除给定名称集之前的所有工作表

Sub DeleteSheetsBeforeNameSet()
    Dim ws As Worksheet
    Dim nameSet As Range
    Dim deleteFlag As Boolean
    
    ' 设置名称集的范围
    Set nameSet = ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 判断工作表名称是否在名称集中
        If Not Application.Intersect(ws.Name, nameSet) Is Nothing Then
            ' 如果工作表名称在名称集中，则将删除标志设置为True
            deleteFlag = True
        End If
        
        ' 如果删除标志为True，则删除该工作表
        If deleteFlag Then
            Application.DisplayAlerts = False ' 禁用删除确认提示框
            ws.Delete
            Application.DisplayAlerts = True ' 启用删除确认提示框
        End If
        
        ' 重置删除标志
        deleteFlag = False
    Next ws
End Sub