Excel VBA：第10行首个空单元格清除内容遇.End属性跳过问题

你的问题出在使用.End(xlToLeft)的逻辑上：这个方法会从第10行最右侧单元格向左查找最近的非空单元格，得到的lastColumn是该行最右非空列的序号，随后从lastColumn+1开始清除内容——这就会跳过该行中间的空单元格（比如你遇到的D10），因为这些空单元格夹在非空单元格之间，不在最右非空列的右侧。

修改后的代码（高效版，用Find方法） #

Sub clearRange()
    Dim ws As Worksheet
    Dim firstEmptyCell As Range
    Dim i As Long
    
    For i = 2 To Worksheets.Count - 1
        Set ws = Worksheets(i)
        ' 在第10行从左到右查找第一个空单元格
        Set firstEmptyCell = ws.Rows(10).Find( _
            What:="", _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlNext _
        )
        
        If Not firstEmptyCell Is Nothing Then
            ' 从第一个空单元格开始，清除到CZ200000的所有内容
            ws.Range(firstEmptyCell, ws.Range("CZ200000")).ClearContents
        End If
    Next i
End Sub

备选方案（直观遍历版） #

如果担心Find方法的参数设置问题，可以直接从A列开始遍历第10行的单元格，找到第一个空单元格后执行清除：

Sub clearRange()
    Dim ws As Worksheet
    Dim col As Long
    Dim i As Long
    
    For i = 2 To Worksheets.Count - 1
        Set ws = Worksheets(i)
        ' 从第1列（A列）开始遍历第10行
        For col = 1 To ws.Columns.Count
            If ws.Cells(10, col).Value = "" Then
                ' 找到第一个空单元格，清除后续区域内容
                ws.Range(ws.Cells(10, col), ws.Range("CZ200000")).ClearContents
                Exit For ' 找到目标后立即退出列遍历循环
            End If
        Next col
    Next i
End Sub

代码说明 #

• 两种方法都会准确定位第10行从左到右的第一个空单元格，而非依赖最右侧的非空单元格位置，因此不会跳过中间的空单元格。
• 遍历版逻辑更直观，适合列数较少的场景；Find方法效率更高，适合处理包含大量列的工作表。

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