VBA遍历Range剪切含空值行代码报错，求问题分析

原代码核心问题拆解 #

• Set MyRange行错误：Range(...).Rows.Select执行的是选中操作，返回的并非Range对象，不能用Set赋值给变量。正确写法是直接引用Range对象，去掉.Select，同时要指定所属工作表（避免默认引用激活表），即Set MyRange = wsIn.Range("A1").CurrentRegion.Rows。
• 变量未显式声明：lrowOut、myCell、MyRange都未指定类型，VBA默认Variant类型，易引发类型错误，需显式声明（比如Dim MyRange As Range, myCell As Range、Dim lrowOut As Long）。
• 遍历对象错误：MyRange是Rows集合，For Each myCell In MyRange遍历的是整行对象，而非单个单元格。同时Active.cell.Value写法错误（应为ActiveCell），且依赖激活单元格的逻辑不可靠，应直接检查当前行是否存在空白单元格。
• 剪切行导致遍历异常：从上到下遍历行时，剪切行会让后续行的位置上移，导致部分行被跳过，需改为从下往上遍历。
• 未限定工作表范围：原代码中Range("A1")未指定工作表，默认引用当前激活工作表，可能和目标表wsIn不一致，需统一用wsIn.前缀限定。

修正后的代码 #

Sub CutRowsWithEmptyCells()
    Dim wsIn As Worksheet, wsOut As Worksheet
    Dim MyRange As Range, currentRow As Range
    Dim lrowOut As Long
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定工作表
    Set wsIn = ThisWorkbook.Sheets("Customer Data")
    Set wsOut = ThisWorkbook.Sheets("Incomplete Data")
    
    ' 获取有效数据区域的行，限定工作表
    Set MyRange = wsIn.Range("A1").CurrentRegion.Rows
    lastRow = MyRange.Count
    
    ' 从下往上遍历，避免剪切行导致的索引混乱
    For i = lastRow To 1 Step -1
        Set currentRow = MyRange(i)
        ' 检查当前行是否有空白单元格
        If WorksheetFunction.CountBlank(currentRow) > 0 Then
            ' 获取目标表的下一行
            lrowOut = wsOut.Cells(wsOut.Rows.Count, "A").End(xlUp).Row + 1
            ' 剪切行到目标表
            currentRow.Cut wsOut.Cells(lrowOut, 1)
        End If
    Next i
End Sub

代码说明 #

• 显式声明所有变量类型，提升代码稳定性；
• 用WorksheetFunction.CountBlank(currentRow)快速判断行内是否存在空白单元格，比遍历每个单元格更高效；
• 从最后一行往上遍历，避免剪切行后行号偏移导致的遍历遗漏；
• 用wsOut.Cells(wsOut.Rows.Count, "A").End(xlUp).Row获取目标表最后一行，比CurrentRegion更可靠（避免目标表为空时出错）。

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