如何不选中区域，用.End指定范围清除Excel非空单元格内容？

你的原代码问题在于：.Range(first_cell).End(xlToRight).End(xlDown)仅会选中右下角的单个单元格，而非从起始单元格到该位置的整个区域，所以执行ClearContents只会清除这一个单元格的内容，达不到预期效果。

修正方案1：使用End方法定位区域范围 #

通过将起始单元格和End定位到的右下角单元格作为Range的两个参数，就能选中整个目标区域：

Public Sub ClearContentFromStart(ws_clear As Worksheet, first_cell As String)
    Dim startCell As Range
    Set startCell = ws_clear.Range(first_cell)
    
    ' 定位到起始单元格所在区域的右下角最后一个非空单元格
    Dim lastCell As Range
    Set lastCell = startCell.End(xlToRight).End(xlDown)
    
    ' 清除整个区域的内容
    ws_clear.Range(startCell, lastCell).ClearContents
End Sub

修正方案2：使用CurrentRegion（更省心） #

如果不需要严格依赖End方法，CurrentRegion可以直接选中起始单元格所在的连续非空区域（等同于手动按Ctrl+A选中的范围），代码更简洁：

Public Sub ClearContentFromStart(ws_clear As Worksheet, first_cell As String)
    ws_clear.Range(first_cell).CurrentRegion.ClearContents
End Sub

注：原代码用了Function，但执行清除操作不需要返回值，改成Sub更合适，避免调用时的额外问题。

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