如何根據Excel中的單元格值將整行移動到另一個工作表？

Author Siluvia Last modified 2025-08-23

若要根據單元格值將整行移動到另一個工作表，本文將對您有所幫助。

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

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

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

sample data

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。

run the coe to move the specific rows to another sheet

注意：上述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的選擇特定單元格功能。通過此功能，您可以輕鬆地根據某個單元格值或工作表中不同的單元格值選擇所有行，然後根據需要將選定的行複製到目標工作表。請按照以下步驟操作。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 選擇包含您要移動行所基於的單元格值的列列表，然後點擊Kutools > 選擇 > 選擇特定單元格。參見截圖：

click Select Specific Cells feature of kutools

2. 在彈出的選擇特定單元格對話框中，在選擇類型部分選擇整行，在指定類型下拉列表中選擇等於，在文本框中輸入單元格值，然後點擊確定按鈕。

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

set options in the Select Specific Cells dialog box

3. 按Ctrl + C鍵複製選定的行，然後將它們粘貼到您需要的目標工作表中。

copy and paste the specific rows to other sheet

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

set options in the Select Specific Cells dialog box for two conditions

如果您想免費試用（30天）此工具，請點擊下載，然後按照上述步驟進行操作。

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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多