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

複数のワークシートを含むExcelワークブックを操作する際、すべてのシートで同一の行や特定の範囲を同時に削除する必要がある場合があります。例えば、標準化されたワークブック内の各ワークシートから要約行、古いデータ、または繰り返しのセクションを削除する必要があるかもしれません。これらの削除を各シートで手動で行うと、効率が悪く、ミスも発生しやすくなります。特に大きなファイルの場合です。幸いなことに、選択したすべてのシートにわたって同じ行や範囲を効率的に削除するための実用的な方法がいくつかあります。この記事では、主に2つの方法を紹介し、タスクをスムーズかつ正確に達成するためのガイドライン、ヒント、注意点、トラブルシューティングを提供します。

すべてのシートをグループ化して複数のシート間で同じ行や範囲を削除する
VBAコードを使用して複数のシート間で同じ行や範囲を削除する

すべてのシートをグループ化して複数のシート間で同じ行や範囲を削除する

ワークシートをグループ化することで、複数のシートに対して同じ操作を一度に行うことができます。この方法はシンプルであり、特にシートが同じ構造を持っている場合や、すべてのシートに変更を反映させたい場合に便利です。グループ化すると、行や範囲の削除などの操作が、グループ内のすべてのメンバーのまったく同じ場所で行われます。

適用可能なシナリオ: この解決策は次の場合に理想的です：

• すべてのワークシートが同じ構造（同じ行数・列配置）を持っている場合。
• すべてのシートで同時に同じ行や範囲を削除したい場合。

ただし注意が必要です： シートがグループ化されている状態で行った操作は、すべてのグループ化されたワークシートに影響します。ワークシートの構造が異なる場合、意図しない削除が発生する可能性があります。

複数のグループ化されたシートから同じ行や範囲を削除するには、次の手順に従います：

1. 現在のワークブックにある任意のシートタブを右クリックし、表示されるメニューから「すべてのシートを選択」を選んでください。これにより、すべてのワークシートがグループ化されます。

ヒント： 特定のシートだけをグループ化する場合（全シートではない）、Ctrlキーを押しながらグループ化したいシートタブをクリックし、その後右クリックして「シートをグループ化」を選択してください。

2. すべてのワークシートがグループ化されている状態で、アクティブなシート内で削除したい行や範囲を選択します。「削除」ボタンを使用して削除するか、右クリックして「削除」を選択すると、同じ行や範囲がグループ化されたすべてのシートで自動的に削除されます。

注意： 元に戻す (Ctrl+Z) は、グループ化されたすべてのシートに影響します。削除前に正しい範囲が選択されていることを再確認してください。この操作は個々のシートで元に戻すことはできません。

3. 削除が完了したら、ワークシートのグループ化を解除することが重要です。再度任意のシートタブを右クリックし、メニューから「シートのグループ化を解除」を選択してください。このステップにより、すべてのシートに同時に意図しない変更が加えられるのを防げます。

実用的な提案： グループ化する前に、ワークブックのバックアップコピーを保存することを検討してください。削除する行に関連する数式がある場合は、潜在的な影響を確認してください。グループ化を解除する際には、Excelタイトルバーのファイル名から [グループ] が消えたことを確認してください。

トラブルシューティング： 複数のシートで誤った行に操作が適用された場合、すぐに元に戻しを行い、再度グループ化して正確な選択でやり直してください。編集を続ける前に必ずグループの状態を確認してください。

VBAコードを使用して複数のシート間で同じ行や範囲を削除する

多くのワークシートで同じ行や特定の範囲を削除する必要がある場合、特に複雑なシナリオや多数のシートを扱う場合、VBA（Visual Basic for Applications）を使うことで迅速かつ柔軟に対応できます。VBAはカスタマイズや一括処理が可能で、高度な基準に基づいた削除や、非連続の行や範囲の削除にも対応できます。

適用可能なシナリオ: 次の場合にこの方法を選択してください：

• 多数のシートで同じ行や範囲を削除する必要がある場合、またはそのようなタスクが頻繁に繰り返される場合。
• 削除条件がより複雑なロジック（可変範囲、ユーザー入力に基づくものなど）を伴う場合。
• ワークシートが異なる構造や複雑な構造を持つために簡単にはグループ化できない場合。

注意点： VBAコードを実行すると直接データが変更されます。進行する前にワークブックのバックアップを保存することを強く推奨します。また、Excel設定でマクロが有効になっていることを確認してください。

複数のシート間で同じ行を削除する

1. Alt + F11 を同時に押して、Microsoft Visual Basic for Applications（VBA）エディタウィンドウを開きます。

2. VBAエディタ内にて、「挿入」>「モジュール」をクリックして新しいモジュールを作成します。その後、次のVBAコードをモジュールのコードウィンドウにコピー＆ペーストしてください：

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

注意： VBAコード内での 4:5 は、現在のワークブック内のすべてのワークシートにおいて4行目と5行目が削除されることを意味します。異なる行を削除したい場合は、必要な値に変更してください。例えば、2行目だけを削除するには、4:5 を 2:2 に置き換えてください。

3. F5キーを押してコードを実行します。指定された行は、ワークブック内のすべてのシートから即座に削除されます。

ヒントとリマインダー： エラーが発生した場合（例えば、短いシートで存在しない行を削除しようとした場合）、すべてのシートに十分な行があることを確認してください。コードは表示されているシートを処理します。非表示または保護されたシートは適切に処理されないとエラーになる可能性があります。

トラブルシューティング： 何も起こらない、または一部の行が期待通りに削除されない場合、正しいモジュールを選択していること、コードに構文エラーがないことを確認してください。また、シートの保護状態も確認してください。

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

すべてのワークシートで同じセル範囲（例えばB2:D10のようなデータブロック）を削除（クリア）する場合、次の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をクリックしてください。

選択を確認すると、指定された範囲の値は現在のワークブック内のすべてのワークシートからクリアされます。

実用的な提案： この方法は、複数のシートで同じセル範囲の値をクリアする必要がある場合に最適です。「削除」とはここで、セルの内容を削除することを意味し、セルを上や左に移動させるわけではありません。ワークシートの構造的な変更（行全体や列全体の削除など）は、VBAコードで明示的に指示しない限り行われません。

予防措置： マクロを実行する前にファイルを保存してデータを保護してください。選択したシートが保護されているか非表示の場合、VBAはエラーを返すか、そのシートをスキップする可能性があります。

トラブルシューティング： ダイアログボックスが表示されない場合、マクロが有効になっていること、コードが正しく完全にペーストされていることを確認してください。誤った範囲が削除された場合、正しい選択でマクロを再実行してください。

まとめの提案： ワークシートのグループ化とVBAの両方のアプローチは、効率的な多シート削除を可能にします。ワークブックの構造と、このようなタスクをどの程度頻繁に必要とするかに基づいて決定してください。定期的に使用する場合は、VBA手順を保存して素早くアクセスできるようにし、特定のシートや範囲を対象にコードをカスタマイズすることを検討してください。

その他の代替案

• 手動での繰り返し（検索/置換を使用）： シートが少数の場合、それぞれに切り替えて対象となる行や範囲を選択し、手動で削除できます。大量のシートがある場合には時間がかかりますが、意図しないワークシート全体への変更のリスクを回避できます。
• Excelの数式を使用（間接法）： 一部の複雑なシナリオでは、数式やヘルパーカラム（INDIRECT、MATCH、IF関数など）を使用して削除対象の行をフラグ付けし、フィルタリング後に手動で削除することができます。この手法は直接的な行全体の削除というよりも、データのマーク付けに適していますが、手動削除前の視覚的な確認に役立ちます。

関連記事：

• Excelで特定の列に欠損値や空白がある行を削除する方法は？
• Excelでセルの値が特定の値より大きい/小さい場合に行を削除する方法は？
• Excelで最初のヘッダ行以外のすべての行を削除する方法は？
• Excelで特定の行またはアクティブセル以下のすべての行を削除する方法は？