Excelで複数のシートにまたがる同じ行または範囲を削除するにはどうすればよいですか？

この記事では、Excelで複数のシートにまたがる同じ行または範囲を同時に削除するXNUMXつの方法を推奨しています。 次のようにしてください。

すべてのシートをグループ化して、複数のシートにまたがる同じ行または範囲を削除します
VBAコードを使用して複数のシートにまたがる同じ行または範囲を削除する

すべてのシートをグループ化して、複数のシートにまたがる同じ行または範囲を削除します

すべてのワークシートをグループ化してから、これらのワークシートから同じ行または範囲を同時に削除するのは簡単です。

1.現在のブックの任意のシートタブを右クリックし、[ すべてのシートを選択 右クリックメニューから。

2.これですべてのワークシートが選択されました。ワークシートの特定の行または範囲を削除すると、他のワークシートの同じ行または範囲が一緒に削除されます。

3.すべてのシートの行または範囲を削除したら、シートタブを右クリックして、をクリックしてください。 シートのグループ化を解除 右クリックメニューからすべてのワークシートのグループ化を解除します。

VBAコードを使用して複数のシートにまたがる同じ行または範囲を削除する

上記の方法に加えて、次のVBAコードを実行して、複数のワークシートにまたがる同じ行または範囲を削除できます。

複数のシートにまたがる同じ行を削除する

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、次のVBAコードをコピーして[コード]ウィンドウに貼り付けます。

VBAコード：Excelで複数のシートにまたがる同じ行を削除する

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

Note：VBAコードでは、4：5は、現在のブックの複数のワークシートで行4と5が削除されることを意味します。 それらを必要な行に変更できます。

3。 押す F5 キーを押してコードを実行すると、指定した行が現在のブックのすべてのシートからすぐに削除されます。

複数のシートで同じ範囲を削除する

複数のシートで同じ範囲を削除するには、以下のVBAコードを試すことができます。

VBAコード：複数のシートで同じ範囲を削除する

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

VBAコードをコピーしてモジュールに貼り付けた後、を押します。 F5 コードを実行するためのキー、およびポップアップで Kutools for Excel ダイアログボックスで、複数のシートにわたって削除する範囲を選択し、[ OK

これで、この特定の範囲のセル値が現在のブックのすべてのシートからすぐに削除されます。

関連記事:

• Excelの特定の列で値が欠落している/空白の行を削除するにはどうすればよいですか？
• セルがExcelの特定の値より大きい/小さい場合に行を削除するにはどうすればよいですか？
• Excelの最初のヘッダー行を除くすべての行を削除するにはどうすればよいですか？
• Excelで特定の行またはアクティブセルの下にあるすべての行を削除するにはどうすればよいですか？