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

多数の行を持つ巨大なワークシートがあり、アクティブセルまたは特定のテキストより上のすべての行を削除したい場合、どのように処理しますか？ 行を選択して右クリックし、コンテキストメニューから「削除」を選択することで手動で行を削除できます。しかし、ここではVBAコードを使用して迅速に上にある行を削除する方法を紹介します。興味がある場合は、以下の詳細をご覧ください。

VBAコードを使用して上にある行を削除する

VBAコードを使用して上にある行を削除する

ここで、2つのVBAコードを紹介します。1つはアクティブ（選択された）セルより上の行を削除し、もう1つは指定されたテキストより上の行を削除します。

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. コード内の「Total Group」は検索したいテキストです。必要に応じて変更できます。

2. 検索したテキストがすでに最初の行にある場合、ダイアログが表示されて通知します。

3. 指定されたテキストがシート内に見つからない場合、以下のようにダイアログが表示され、通知されます。