VBA批量清除特定行区间内容且保留固定间隔表头实现求助

适配固定间隔规则的版本 #

按照你给出的「表头每12行出现一次」的规则，可直接用循环批量生成要清除的区间，不用逐段写：

Sub Clear_All()
    Dim UnitSheet As Worksheet
    Dim startRow As Long
    ' 可根据实际需求调整以下常量参数
    Const INTERVAL As Long = 12         ' 两个表头的间隔行数
    Const LAST_HEADER_ROW As Long = 109 ' 最后一个表头所在行
    Const CLEAR_COL_RANGE As String = "A:F" ' 要清除内容的列范围
    
    Set UnitSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 遍历所有表头位置执行清除
    For startRow = 1 To LAST_HEADER_ROW Step INTERVAL
        ' 每个表头下方第2行到第11行（共10行）清除内容
        UnitSheet.Range(UnitSheet.Cells(startRow + 2, CLEAR_COL_RANGE), _
                        UnitSheet.Cells(startRow + 11, CLEAR_COL_RANGE)).ClearContents
    Next startRow
End Sub

后续表格行数扩展后，只需要修改LAST_HEADER_ROW的值即可，其他参数也可根据实际规则灵活调整。

自动识别黄色表头的进阶版本 #

如果后续表格规则可能变化，可直接通过表头的黄色填充特征自动识别，无需手动设置间隔和最大行数，适配任意行数的表格：

Sub Clear_All_Auto()
    Dim UnitSheet As Worksheet
    Dim cell As Range
    ' 可根据实际需求调整以下常量参数
    Const CLEAR_COL_COUNT As Long = 6   ' 要清除的列数（A到F共6列）
    Const HEADER_YELLOW As Long = 65535 ' 表头黄色对应的颜色值，可根据实际填充色修改
    
    Set UnitSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 遍历A列所有有内容的行，识别黄色表头
    For Each cell In UnitSheet.Range("A1:A" & UnitSheet.Cells(Rows.Count, "A").End(xlUp).Row)
        If cell.Interior.Color = HEADER_YELLOW Then
            ' 清除当前表头下方第2行起的10行内容
            cell.Offset(2, 0).Resize(10, CLEAR_COL_COUNT).ClearContents
        End If
    Next cell
End Sub

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