如何使用VBA筛选数据并将指定单元格范围剪切到其他工作表

原代码核心问题 #

• 循环逻辑未绑定遍历对象：每次循环都固定判断A2单元格的下一行，没有对当前遍历的A列单元格做校验
• 剪切范围写死为固定行：始终只操作B2:F2区域，没有匹配当前遍历单元格对应的行
• 范围归属未明确：原代码中rng范围没有指定所属工作表，切换工作表时会出现范围识别错误

修改后可直接运行的代码（匹配同位置行需求） #

如果需要把符合条件的行剪切到Sheet2的对应行（如Sheet1的5行内容放到Sheet2的5行），使用以下代码：

Private Sub CommandButton1_Click()
    Dim rng As Range, cell As Range
    Dim targetRow As Long
    ' 明确指定遍历范围属于Sheet1，避免工作表切换导致的范围错误
    Set rng = Sheet1.Range("A2:A100")
    
    For Each cell In rng
        ' 校验当前遍历的A列单元格值是否为DE
        If cell.Value = "DE" Then
            ' 取当前单元格的行号，剪切对应B到F列到Sheet2的同位置行
            targetRow = cell.Row
            Sheet1.Range("B" & targetRow & ":F" & targetRow).Cut Sheet2.Range("B" & targetRow & ":F" & targetRow)
        End If
    Next cell
End Sub

可选优化版本（Sheet2内容连续无空行） #

如果你不需要在Sheet2保留和Sheet1对应的行位置，而是要把所有符合条件的行依次连续排列在Sheet2顶部，使用以下版本：

Private Sub CommandButton1_Click()
    Dim rng As Range, cell As Range
    Dim nextEmptyRow As Long
    Set rng = Sheet1.Range("A2:A100")
    ' 先获取Sheet2 B列第一个空行的行号
    nextEmptyRow = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row + 1
    
    For Each cell In rng
        If cell.Value = "DE" Then
            Sheet1.Range("B" & cell.Row & ":F" & cell.Row).Cut Sheet2.Range("B" & nextEmptyRow & ":F" & nextEmptyRow)
            nextEmptyRow = nextEmptyRow + 1
        End If
    Next cell
End Sub

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