Excelでアクティブセルまたは特定のテキストの上の行を削除するにはどうすればよいですか？

複数の行を持つ巨大なワークシートがあり、アクティブセルまたは特定のテキストの上のすべての行を削除したい場合、どのように処理できますか？ 行を選択して削除し、右クリックしてコンテキストメニューから[削除]を手動で選択できます。 しかし、ここでは、上の行をすばやく削除するためのVBAコードがあります。興味がある場合は、以下の詳細をお読みください。

VBAコードで上の行を削除します

---

VBAコードで上の行を削除します

ここでは、XNUMXつのVBAコードを紹介します。XNUMXつはアクティブな（選択したセル）の上の行を削除する方法、もうXNUMXつは指定したテキストの上の行を削除する方法です。

1.その上の行を削除するセルを選択し、を押します Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

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.見つけたテキストがシートに存在しない場合は、下のスクリーンショットのようなダイアログがポップアップ表示され、通知されます。