这是我最难弄清楚的事情，这是在筛选堆栈溢出4小时没有结果之后。
这不会关心你是否有空行，也不会删除你的标题。
这是一个简单的解决方案。

Call RangeA2SelectandClear     
Call RangeB2SelectandClear     
Call RangeC2SelectandClear    
Call RangeD2SelectandClear

字符串
像上面那样打电话
潜艇在下面。

Sub RangeA2SelectandClear()
Range(Cells(2, 1), Cells(Rows.Count, 1)).ClearContents
End Sub

Sub RangeB2SelectandClear()
Range(Cells(2, 2), Cells(Rows.Count, 2)).ClearContents
End Sub

Sub RangeC2SelectandClear()
Range(Cells(2, 3), Cells(Rows.Count, 3)).ClearContents
End Sub

Sub RangeD2SelectandClear()
Range(Cells(2, 4), Cells(Rows.Count, 4)).ClearContents
End Sub

型
编辑“更多这样做的方式：”
以防它不选择你的范围。

Range(Cells(2, ColNum), Cells(Rows.Count, ColNum).End(xlUp))

型
在中选择一行单元格（计数列而不是计数行）

Range(Cells(2, 2), Cells(2, Columns.Count).End(xlToLeft)).Select

型
要选择不包括标题的列范围，请使用以下方法：

Range(Cells(2, "A"), Cells(Rows.Count, "D").End(xlUp)).Select

型
或 * 更新10-22-15

Range("A7", Cells(Rows.Count, "E").End(xlUp)).Select

型
下面的代码选择了另一个工作表中的一个范围，但是从技术上讲，你不能选择另一个工作表中的一个范围，所以我只是使用了一个特定的操作来进行选择。这使得代码更快，如果我这样使用它。* 更新时间10-22-15

With Worksheets("Template BOM").Range(Worksheets("Template BOM").Cells(7, "A"), Worksheets("Template BOM").Cells(Rows.Count, "E").End(xlDown))
    'updated 10-22-15 there is no limit to the range now.
        '.Select 'if using .select this code fails.
        .ClearContents
        .Interior.ColorIndex = xlColorIndexNone
    End With

型