删除行时触发Invalid qualifier错误，VB宏i变量报错求助

错误根源 #

报错「Invalid qualifier」指向变量i，是因为i是Long类型的数值变量，你试图调用.End(xlDown)方法——这个方法仅能用于单元格（Range）对象，数值变量没有该属性/方法，因此触发错误。

修正后的代码 #

结合你“识别A列值为"X"的单元格，删除其下方所有空行”的需求，修正代码如下：

Sub Macro6()
    Dim last As Long
    Dim i As Long
    Dim targetRow As Long
    
    With ActiveSheet
        ' 获取A列最后一个非空行的行号
        last = .Cells(.Rows.Count, 1).End(xlUp).Row
        ' 从后往前遍历，避免删除行导致的索引错乱
        For i = last To 1 Step -1
            If .Cells(i, 1).Value = "X" Then
                ' 找到当前X单元格下方最后一个连续空行的行号
                targetRow = .Cells(i, 1).End(xlDown).Row
                ' 如果下方存在空行，删除从i+1到targetRow的所有行
                If targetRow > i Then
                    .Rows(i + 1 & ":" & targetRow).Delete
                End If
            End If
        Next i
    End With
End Sub

额外优化说明 #

• 原代码中last = .Cells(.Rows.Count, 1).End(xlDown).Row存在逻辑问题：如果A列最后一行是空行，xlDown会直接跳到第一行非空行，改用xlUp能准确获取最后一个非空行的行号。
• 增加targetRow > i的判断，避免当X单元格已经是最后一行时执行无效删除操作。
• 直接删除连续行范围，比逐行删除效率更高。

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