如何基於Excel中的單元格值將整行移動到另一張工作表？

為了根據單元格值將整行移動到另一張表，本文將為您提供幫助。

使用VBA代碼根據單元格值將整行移動到另一張工作表
使用Kutools for Excel根據單元格值將整行移動到另一張工作表

使用VBA代碼根據單元格值將整行移動到另一張工作表

如下面的屏幕截圖所示，如果在C列中存在特定的單詞“ Done”，則需要將整個行從Sheet1移到Sheet2。您可以嘗試以下VBA代碼。

1。 按 其他+ F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2.在“ Microsoft Visual Basic for Applications”窗口中，單擊“ 插入 > 模塊。 然後將下面的VBA代碼複製並粘貼到窗口中。

VBA code 1: Move entire row to another sheet based on cell value

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”是包含特定值的列，而單詞“完成”是您將基於其移動行的特定值。 請根據您的需要進行更改。

3。 按 F5 鍵運行代碼，然後將滿足Sheet1中條件的行立即移至Sheet2。

備註：上面的VBA代碼將移至指定的工作表後從原始數據中刪除行。 如果只想基於單元格值複製行而不是刪除它們。 請應用下面的VBA代碼2。

VBA code 2: Copy entire row to another sheet based on cell value

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代碼的新手。 在這裡我介紹 選擇特定的單元格 的效用 Excel的Kutools。 使用此實用程序，您可以輕鬆地基於工作表中的某個單元格值或不同的單元格值選擇所有行，然後根據需要將所選行複製到目標工作表中。 請執行以下操作。

1.選擇包含要作為行依據的單元格值的列列表，然後單擊 庫工具 > 選擇 > 選擇特定的單元格。 看截圖：

2.在開幕 選擇特定的單元格 對話框中選擇 整行 ，詳見 選擇類型 部分，選擇 等於 ，詳見 特定類型 下拉列表，在文本框中輸入單元格值，然後單擊 OK 按鈕。

另一個 選擇特定的單元格 對話框彈出以顯示選定的行數，同時，選定行中包含指定值的所有行均已被選中。 看截圖：

3。 按 按Ctrl + C 鍵複製選定的行，然後將其粘貼到所需的目標工作表中。

備註：如果要基於兩個不同的單元格值將行移動到另一個工作表。 例如，根據“ Done”或“ Processing”單元格值移動行，您可以啟用 Or 條件 選擇特定的單元格 對話框如下圖所示：

相關文章:

• 如何根據Excel中的單元格值將整行移動到活動工作表的底部？