如何清除Excel列中除表头外的所有内容？代码报错1004求助

错误原因分析 #

你的代码存在三个关键问题：

1. sh.Range()参数错误：你传入的是单独行号（Cells(2, lastcolumn).End(xlDown).Row），但Range需要的是单元格范围引用，不是纯数字。
2. Cells(2, lastcolumn)未指定所属工作表，若当前活动表和sh不是同一个，会引发引用混乱，触发1004错误。
3. End(xlDown)的局限性：如果目标列第2行下方有空行，只会清除到空行的上一行，无法覆盖整列所有数据行。

修正后的稳定代码方案 #

用xlUp从列底往上定位最后一行，确保覆盖所有数据，同时明确绑定工作表对象：

Sub clear_contents_of_column_except_header()
    Dim sh As Worksheet, lastColumn As Long, lastRow As Long
    Set sh = ActiveSheet
    lastColumn = 10 ' 指定第10列（J列）
    
    ' 从列的最后一行往上找有数据的行号
    lastRow = sh.Cells(sh.Rows.Count, lastColumn).End(xlUp).Row
    
    ' 仅当存在数据行时执行清除，避免表头单独存在时出错
    If lastRow >= 2 Then
        sh.Range(sh.Cells(2, lastColumn), sh.Cells(lastRow, lastColumn)).ClearContents
    End If
End Sub

简化版写法（适合无空行场景） #

如果确定目标列没有空行，可直接用UsedRange快速实现：

Sub clear_contents_of_column_except_header_simple()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    ' 清除J列第2行到已用区域最后一行
    sh.Range("J2:J" & sh.UsedRange.Rows.Count).ClearContents
End Sub

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