如何根據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中的單元格值將整行移動到活動工作表的底部？