如何刪除Excel中活動單元格上方或特定文本上方的行？

如果有一個巨大的工作表，其中包含多行，而您只想刪除活動單元格上方或特定文本上方的所有行，該如何處理？ 您可以通過選擇行來刪除它們，然後右鍵單擊以從上下文菜單中手動選擇“刪除”。 但是在這裡，我有VBA代碼可以快速刪除上面的行，如果您對此感興趣，請閱讀以下詳細信息。

使用VBA代碼刪除上面的行

---

使用VBA代碼刪除上面的行

在這裡，我為您介紹了兩個VBA代碼，一個是刪除活動（選定單元格）上方的行，另一個是刪除指定文本上方的行。

1.選擇一個要刪除其上方行的單元格，然後按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 腳本。

VBA：刪除活動單元上方的行

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

 

3。 按 F5 鍵，則活動單元上方的行已被刪除。 看截圖：

如果要刪除指定文本上方的行，可以在VBA以下使用。

VBA：刪除指定文本上方的行

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

備註：

1.在代碼中， 總計組 是您要查找的文本，可以根據需要進行更改。

2.如果找到的文本已經在第一行，則會彈出一個對話框提醒您。

3.如果您發現的文本不存在於工作表中，則會彈出如下所示的對話框，提醒您。