VBA如何清除Excel工作表中除24-26列、1-6行外的所有数据

我曾查看过同场景的高度相似问题，认为用户@SQL Police给出的解答思路非常优秀，但不清楚如何调整代码匹配自身需求，具体问题如下：
我需要清除工作表中既不在24-26列范围内、也不在1-6行范围内的所有内容。目前已有分别实现按指定列清除、按指定行清除的VBA代码，但直接运行两段代码会清除两个规则覆盖的并集区域，无法实现“仅清除同时满足两个排除条件”的需求。

现有参考代码 #

按指定列清除内容的代码 #

Sub ColClear()
Dim ws As Worksheet
Set ws = ActiveSheet

ws.Range(ws.Columns(1), ws.Columns(23)).ClearContents
ws.Range(ws.Columns(27), ws.Columns(ws.UsedRange.End(xlToRight).Column)).Clear

End Sub

按指定行清除内容的代码 #

Sub RowClear()
With Sheets("SheetName")
.Rows(7 & ":" & .Rows.Count).ClearContents
End With
End Sub

请问如何同时实现两类清除规则？即仅清除两个待清除范围的交集区域内容，而非并集区域。

核心逻辑非常直接：需要保留的内容只有两部分，一是1-6行的所有列内容，二是24-26列的所有行内容，只需避开这两个区域清除其余内容即可，不需要复杂的范围交集计算。
直接运行以下代码即可匹配需求：

Sub KeepSpecifiedRangeClearOthers()
    Dim ws As Worksheet
    Dim lastCol As Long, lastRow As Long
    
    ' 替换成你要操作的工作表名称，若要操作当前活动工作表可改成 Set ws = ActiveSheet
    Set ws = ThisWorkbook.Sheets("SheetName")
    
    ' 获取当前工作表实际已使用的最大行、最大列，避免操作整行整列拖慢运行速度
    lastRow = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
    lastCol = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1
    
    ' 边界判断：如果已使用范围未到第7行/第27列，跳过对应清除操作
    If lastRow >= 7 Then
        ' 清除7行及以下、1-23列的内容
        ws.Range(ws.Cells(7, 1), ws.Cells(lastRow, 23)).ClearContents
        ' 清除7行及以下、27列到最大已使用列的内容
        If lastCol >= 27 Then
            ws.Range(ws.Cells(7, 27), ws.Cells(lastRow, lastCol)).ClearContents
        End If
    End If
End Sub

代码说明 #

• 不会误删保留区域内容：1-6行的所有列、所有行的24-26列内容都会完整保留，仅清除同时满足「行号≥7」「列号不在24-26之间」的内容，完全匹配需求
• 仅操作实际有内容的单元格范围，不会全列全行清除导致文件体积虚增、运行卡顿
• 如果需要同时清除内容和单元格格式，把代码里的ClearContents换成Clear即可

内容的提问来源于stack exchange，提问作者Prince M