VBA代码无报错但卡在End If，需删除B列空值行

嘿，我来帮你揪出这段代码的问题——你遇到的卡顿（甚至无限循环）其实是几个小细节没处理到位，咱们一步步拆解：

问题1：未定义的工作表对象ws #

你代码里用了ws.Rows(i).Delete，但从头到尾没声明ws指向哪个工作表！VBA虽然允许隐式声明，但这会让代码找不到正确的操作对象，要么悄悄出错，要么卡在执行环节。咱们得明确指定工作表，比如用当前激活表或者你需要的具体表名。

问题2：遍历方向踩了坑（从前往后删行的隐患） #

当你从第2行开始往前遍历，删除某一行后，下面的行会自动往上挪一行。这时候如果i继续递增，就会跳过新挪上来的那一行。而且原来的lastrow是删除前的行数，循环条件i <= lastrow会一直成立，直接导致无限循环，看起来就像卡在了End If那里。

问题3：变量类型适配性不足 #

i定义成Integer，但Excel的行数最多能到1048576，远超过Integer的最大值32767，这可能导致溢出或者循环异常，换成Long类型才稳妥。

修正后的代码 #

Sub DeleteBlankRowsInColumnB()
    Dim lastrow As Long
    Dim i As Long
    Dim ws As Worksheet
    
    ' 指定要操作的工作表，这里用ActiveSheet，也可以改成Sheets("你的工作表名")
    Set ws = ActiveSheet
    
    ' 获取B列的最后一行，比用A列更准确
    lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从后往前遍历，完美避开删行后跳行的问题
    For i = lastrow To 2 Step -1
        ' 覆盖单元格本身为空、公式返回空的情况
        If ws.Range("B" & i).Value = "" Or ws.Range("B" & i).Text = "" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

关键改进点说明 #

• 从后往前遍历：从最后一行开始往上删，删除行不会影响还没遍历到的行，彻底避免跳行和无限循环。
• 明确工作表对象：用Set ws = ActiveSheet（或指定具体表名），确保代码操作的是你目标中的工作表。
• 用Long类型变量：适配Excel的大行数范围，杜绝溢出风险。
• 严谨的空值判断：同时检查Value和Text，覆盖公式返回空字符串的场景。

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