VBA清除A-C列首行外内容报错，求动态范围解决方案

原代码Range("A2:C").ClearContents报错的原因是VBA不支持这种省略行号的范围写法，必须明确范围的起止行。以下是几种动态实现的可行方案：

方案1：直接偏移整列（清空整列除首行） #

这种方法会清除A-C列从第2行开始的所有单元格（包括空行），写法最简洁：

Sub Clear_Contents()
    Columns("A:C").Offset(1).ClearContents
End Sub

方案2：基于最后一行数据动态清除 #

先获取目标列的最后一行数据行号，只清除有数据的区域，避免处理空行：

Sub Clear_Contents()
    Dim lastRow As Long
    ' 获取C列最后一行有数据的行号（若要以A/B列为基准，替换"C"即可）
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    ' 动态拼接清除范围
    Range("A2:C" & lastRow).ClearContents
End Sub

方案3：结合已使用区域清除 #

仅清除A-C列中被实际使用过的区域（跳过首行），适合工作表数据集中在A-C列的场景：

Sub Clear_Contents()
    Intersect(Columns("A:C"), UsedRange).Offset(1).ClearContents
End Sub

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