Excel宏问题：从第11行开始每隔3行清除B:O列内容失败

首先，你的优化思路完全正确——用Range("B" & i & ":O" & i).ClearContents替代重复的Cells(x, n).ClearContents确实让代码更简洁高效。但代码只执行一次就停止，大概率是**lastRow的取值不符合预期**，或者循环的终止条件存在逻辑漏洞。

问题诊断 #

你当前通过B列最后一个非空行来确定lastRow：

lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row

如果B列在第11行之后的单元格都是空值，那lastRow就会等于11，循环For i = 11 to lastRow Step 3自然只会执行一次就结束。这是最常见的触发原因。

另外，With ActiveSheet依赖当前激活的工作表，如果你的数据实际在其他工作表，也会导致逻辑异常。

修正后的代码 #

下面是调整后的代码，同时解决了lastRow取值问题并增加了鲁棒性：

Sub ClearWeekly()
    ' 指定具体工作表，避免ActiveSheet切换导致的误操作
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("你的工作表名称") ' 替换成实际表名
    
    With ws
        ' 可选：如果数据分布在多列，改用整个工作表的最后一行判断
        ' Dim lastRow As Long
        ' lastRow = .Cells(.Rows.Count, .Columns.Count).End(xlUp).Row
        
        ' 基于B列获取最后一行，确保B列后续有数据，或改用其他非空列
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        
        ' 容错判断：确保起始行不超过最后一行
        If lastRow >= 11 Then
            Dim i As Long
            For i = 11 To lastRow Step 3
                .Range("B" & i & ":O" & i).ClearContents
            Next i
        Else
            MsgBox "第11行之后没有数据可清除！"
        End If
    End With
End Sub

额外优化建议 #

• 指定具体工作表：避免依赖ActiveSheet，直接指定工作表名称，防止误操作其他表。
• 灵活获取最后一行：如果数据分散在多列，建议用整个工作表的最后一行判断，避免因单列为空导致的错误。
• 批量操作（进阶）：数据量较大时，可一次性收集所有目标行再批量清除，提升效率：

Sub ClearWeekly_Batch()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    
    With ws
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        
        If lastRow >= 11 Then
            Dim targetRange As Range
            ' 循环收集所有目标行
            For i = 11 To lastRow Step 3
                If targetRange Is Nothing Then
                    Set targetRange = .Range("B" & i & ":O" & i)
                Else
                    Set targetRange = Union(targetRange, .Range("B" & i & ":O" & i))
                End If
            Next i
            ' 一次性清除内容
            If Not targetRange Is Nothing Then targetRange.ClearContents
        Else
            MsgBox "第11行之后没有数据可清除！"
        End If
    End With
End Sub

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