如何使用VBA清除Excel工作表数据（排除首行并解决下标越界错误）

报错原因 #

你现有的代码抛出下标越界是因为lRow赋值语句存在括号配对错误：Sheets("Sheet1".Rows.Count缺少右括号，正确写法应为Sheets("Sheet1").Rows.Count，语法错误导致VBA无法正确识别工作表对象，触发异常。

完整实现代码 #

Sub ClearSheet1DataExceptHeader()
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    
    ' 绑定指定工作表，适配多工作表工作簿场景
    Set targetWs = ThisWorkbook.Sheets("Sheet1")
    
    With targetWs
        ' 取A列最后一个有数据的行号
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        ' 取表头行（第1行）最后一个有数据的列号
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        
        ' 仅存在表头以外的数据时执行清除，避免误删表头
        If lastRow > 1 Then
            .Range(.Cells(2, 1), .Cells(lastRow, lastCol)).ClearContents
        End If
    End With
End Sub

代码说明 #

• 使用With块批量引用目标工作表，减少重复写工作表名的错误概率，同时提升运行效率
• 动态匹配实际数据的行列范围，完全替代硬编码的A2:D1000范围，不会因为数据范围变化导致漏清或者多清
• 增加边界判断逻辑，当工作表只有表头没有业务数据时不会执行清除操作，避免异常
• 如果实际操作的工作表名称不是Sheet1，直接替换ThisWorkbook.Sheets("Sheet1")里的工作表名即可

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