在所有工作表中仅保留一个范围- VBA

Sub KeepOnlyOneRange()
    Dim ws As Worksheet
    Dim rng As Range
    Dim targetRange As Range
    
    ' 设置目标范围
    Set targetRange = Range("A1:D10")
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查当前工作表是否为目标范围所在的工作表
        If ws.Name <> targetRange.Worksheet.Name Then
            ' 清除当前工作表中的所有内容
            ws.Cells.Clear
        Else
            ' 清除目标范围之外的内容
            Set rng = ws.UsedRange
            rng.ClearContents
            rng.ClearFormats
            rng.ClearComments
            rng.ClearHyperlinks
            Intersect(rng, targetRange).ClearFormats
            Intersect(rng, targetRange).ClearComments
            Intersect(rng, targetRange).ClearHyperlinks
        End If
    Next ws
End Sub