VBA删除行代码无效问题求助

这问题我太熟了——核心原因是你的代码没有明确指定Cells对象所属的工作表，导致操作上下文混乱，再加上循环范围的逻辑错误，才会出现“改颜色行得通，删行就失效”的情况。

咱们拆解来看：

1. 对象未限定的坑
   你计算o的时候，明确用了Workbooks(repfile).Worksheets(1)来引用目标工作表的B列，但后面的Cells(k,7)、cells(k,7).EntireRow.Delete都是未限定的Cells——它默认指向当前活动工作表，而不是你前面统计的那个工作表！

   • 改颜色时你可能刚好把目标工作表设为了活动表，所以代码能找到对应单元格并生效；
   • 删行时哪怕活动表是目标表，还有第二个坑在等着你。

2. 循环范围的逻辑错误
   你用SpecialCells(xlCellTypeConstants).Count得到的是B列中常量单元格的数量，不是目标工作表的总行数。比如如果B列只有15个非空常量单元格，但工作表实际有50行，你的循环只会从15到2，直接漏掉了16行及以上的行，自然删不到那些符合条件的行。

修正后的代码 #

Dim ws As Worksheet
Set ws = Workbooks(repfile).Worksheets(1)

' 获取目标工作表B列最后一行有数据的行号（更稳妥的方式）
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

' 从最后一行往前循环，避免删行后行号偏移的问题
For k = lastRow To 2 Step -1
    ' 所有单元格操作都限定在目标工作表ws上
    If Left(ws.Cells(k, 7).Value, 1) <> "1" Or IsEmpty(ws.Cells(k, 7)) Then
        ws.Cells(k, 7).EntireRow.Delete
    End If
Next k

关键修正点 #

• 用Set ws = ...明确绑定目标工作表，所有单元格操作都加上ws.前缀，彻底避免上下文混淆；
• 改用lastRow获取实际有数据的最后一行，确保循环覆盖所有需要检查的行；
• 简化了IsEmpty的判断逻辑，代码更简洁易读。

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