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

本教程將向您展示如何使用簡單而強大的技術根據預定條件重新排列 Excel 電子表格中的行。在許多情況下，需要對 Excel 資料進行排序或重新排列。例如，為了優先考慮或將特定行與其餘資料分開，您可能希望將它們放在工作表的底部。本教程的主要目標是透過選擇要根據單元格值重新定位的行來實現此目的。

我們將假設您對 Excel 及其功能有基本的瞭解，然後開始學習本課程。到課程結束時，您將能夠有效地組織 Excel 中的資料，因為您將學習如何根據單元格值將整行移動到底部。然後讓我們開始吧！

根據單元格值將整行移動到活動工作表的底部

在這裡，我們將首先建立一個 VBA 模組，然後執行它以完成任務。因此，讓我們看看一個簡單的過程，瞭解如何根據 Excel 中的單元格值將整行移動到活動工作表的底部。

步驟 1

考慮一個 Excel 工作表，其中工作表中的資料類似於下圖。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。

右鍵單擊 > 檢視程式碼。

步驟 2

然後單擊“插入”，選擇“模組”，然後將以下程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

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:", "Move Based Value", 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, "Move Based Value"
      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) = "Yes" Then
         xRg.Cells(I).EntireRow.Cut
         Rows(xEndRow).Insert Shift:=xlDown
      End If
   Next
   Application.ScreenUpdating = True
End Sub

在 VBA 程式碼中，“Done”是您將根據其移動整行的單元格值。您可以根據需要更改它。

步驟 3

然後單擊 F5 執行模組。然後選擇單元格範圍並單擊“確定”以完成任務。

這就是如何在 Excel 中根據單元格值將整行移動到活動工作表的底部的方法。

結論

在本教程中，我們使用了一個簡單的示例來演示如何在 Excel 中根據單元格值將整行移動到活動工作表的底部，以突出顯示特定資料集。

更新於： 2023年8月24日

609 次檢視

開啟你的 職業生涯

完成課程獲得認證

開始學習
廣告