求无需预先选中区域的VBA脚本：清除A3至J列最后行内容

直接用这段VBA代码就能实现需求，全程无需手动选中或滚动到表格末尾：

Sub ClearTargetRange()
    Dim lastRow As Long
    ' 获取J列最后一个有内容的行号
    lastRow = Cells(Rows.Count, "J").End(xlUp).Row
    ' 清除A3到J列最后行的单元格内容（保留格式）
    Range("A3:J" & lastRow).ClearContents
End Sub

代码说明： #

• Cells(Rows.Count, "J").End(xlUp).Row：从J列最底部往上定位第一个非空单元格，自动获取最后已使用行的行号，不用手动指定行数。
• Range("A3:J" & lastRow)：直接定位目标区域，无需选中单元格，彻底避免滚动到表格末尾的操作。
• ClearContents：仅清除单元格内容，保留原有格式（如边框、填充色）；如果需要连格式一起清除，替换为Clear即可。

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