如何根据Excel中的单元格值将整行移动到另一个工作表？

要根据单元格值将整行移动到另一个工作表，本文将帮助您完成操作。

使用VBA代码根据单元格值将整行移动到另一个工作表
使用Kutools for Excel根据单元格值将整行移动到另一个工作表

使用VBA代码根据单元格值将整行移动到另一个工作表

如下截图所示，如果C列中存在特定单词“Done”，则需要将Sheet1中的整行移动到Sheet2。您可以尝试以下VBA代码。

1. 同时按 Alt+ F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后复制并将以下VBA代码粘贴到窗口中。

VBA代码 1：根据单元格值将整行移动到另一个工作表

Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            xRg(K).EntireRow.Delete
            If CStr(xRg(K).Value) = "Done" Then
                K = K - 1
            End If
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

注意：在代码中，Sheet1 是包含要移动行的工作表，而 Sheet2 是目标工作表，您将把行移动到这里。“C:C”是包含特定值的列，“Done”是基于其移动行的特定值。请根据您的需求进行更改。

3. 按下 F5 键运行代码，随后符合Sheet1条件的行将立即被移动到Sheet2。

注意：上述VBA代码将在移动到指定工作表后从原始数据中删除行。如果您只想根据单元格值复制行而不是删除它们，请应用下面的VBA代码 2。

VBA代码 2：根据单元格值将整行复制到另一个工作表

Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

使用Kutools for Excel根据单元格值将整行移动到另一个工作表

如果您是VBA代码的新手，这里介绍 Kutools for Excel的选择特定单元格功能。通过此功能，您可以轻松选择工作表中基于某个特定单元格值或不同单元格值的所有行，并根据需要将选定的行复制到目标工作表。请按照以下步骤操作。

1. 选择包含要移动行的单元格值的列列表，然后点击 Kutools > 选择 > 选择特定单元格。参见截图：

2. 在弹出的“选择特定单元格”对话框中，在“选择类型”部分选择“整行”，在“指定类型”下拉列表中选择“等于”，在文本框中输入单元格值，然后点击“确定”按钮。

另一个“选择特定单元格”对话框弹出显示所选行的数量，同时，所有在选定列中包含指定值的行都已被选中。参见截图：

3. 按 Ctrl + C 键复制选定的行，然后将它们粘贴到您需要的目标工作表中。

注意：如果想根据两个不同的单元格值将行移动到另一个工作表。例如，根据单元格值“Done”或“Processing”移动行，可以在选择特定单元格对话框中启用或条件，如下截图所示：

相关文章：

• 如何根据Excel中的单元格值将整行移动到活动工作表的底部？