如何根據Excel中的儲存格值將整行移動到當前工作表的底部？

若要根據Excel中的儲存格值將整行移動到當前工作表的底部，請嘗試本文中的VBA代碼。

使用VBA代碼根據儲存格值將整行移動到當前工作表的底部

使用VBA代碼根據儲存格值將整行移動到當前工作表的底部

例如，如下方截圖所示，如果C列中的某個儲存格包含特定值“Done”，則將整行移動到當前工作表的底部。請按照以下步驟操作。

1. 同時按下 Alt+ F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後複製並將以下VBA代碼粘貼到視窗中。

VBA代碼：根據儲存格值將整行移動到當前工作表的底部

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

備註：在VBA代碼中，“Done”是您將根據其移動整行的儲存格值。您可以根據需要更改它。

3. 按下 F5 鍵運行代碼，然後在彈出的 Kutools for Excel 對話框中，選擇存在特定值的列範圍，然後點擊 確定 按鈕。

點擊 確定 按鈕後，指定列中含有“Done”值的整行會自動移動到資料區域的底部。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

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