Microsoft VBA Excel 一键清除

项目场景：

简述：

有几百个sheet组成的Excel表格，第一步需要对所有的sheet只清理除标题以外的全部数据，也就是第二行开始的所有行【展示】；第二步，从指定的文件夹中提取对应的数据【未展示】。

---

问题描述

第一步：

Sub ClearDataBelowHeaders()
    Dim wsControl As Worksheet
    Dim wsTarget As Worksheet
    Dim sheetName As Range
    Dim sheetNameRange As Range

    ' 设置控制工作表（包含sheet名称的那个）
    Set wsControl = ThisWorkbook.Sheets("Control")

    ' 定义需要处理的工作表名称范围，从A2开始到A列最后一个非空单元格
    Set sheetNameRange = wsControl.Range("A2:A" & wsControl.Cells(wsControl.Rows.Count, "A").End(xlUp).Row)

    ' 循环遍历每个工作表名称
    For Each sheetName In sheetNameRange
        ' 检查工作表是否存在
        On Error Resume Next ' 如果有错误（例如没有找到工作表），则跳过
        Set wsTarget = ThisWorkbook.Sheets(sheetName.Value)
        On Error GoTo 0 ' 重新启动错误处理

        ' 如果找到工作表，则清除第二行以下的数据
        If Not wsTarget Is Nothing Then
            wsTarget.Rows("2:" & wsTarget.Rows.Count).ClearContents
            Set wsTarget = Nothing ' 重置wsTarget以供下次循环使用
        End If
    Next sheetName
End Sub

---