特定の列にゼロが含まれる行をExcelで削除する

Excelでデータを管理する際、特定の値（たとえば特定の列に含まれるゼロなど）に基づいて行を効率的に削除し、データセットを整理する必要がある場合があります。これにより、データの正確性と関連性を維持できます。このチュートリアルでは、指定された列にゼロが含まれる行を削除するための3つの異なる方法について説明します。具体的には、Excelのフィルター機能を使用する方法、簡略化されたアプローチとして「Kutools for Excel」を利用する方法、そしてより高度なユーザー向けにVBAを使用する方法です。

Excelでフィルター機能を使用して、セルにゼロが含まれる行を削除する
Kutools for Excelを使用して、セルにゼロが含まれる行を簡単に選択する
ExcelでVBAを使用して、セルにゼロが含まれる行を削除する

Excelでフィルター機能を使用して、セルにゼロが含まれる行を削除する

特定の列にあるゼロ値に基づいてすべての行をフィルタリングし、その後表示されている行を削除することができます。以下の手順で行ってください。

1. 削除したいゼロ値が含まれている列のセルを選択し、「データ」＞「フィルター」をクリックします。スクリーンショットをご覧ください：

2. 選択した列の最初のセルにドロップダウン矢印が表示されます。その矢印をクリックし、ドロップダウンリストから「数値フィルター」＞「等しい」を選択します。

3. 「カスタムオートフィルター」ダイアログボックスで、下のスクリーンショットのようにテキストボックスに数字「0」を入力し、「OK」ボタンをクリックします。

4. 選択した列にゼロ値を含むすべての行がフィルタリングされました。フィルター範囲内のすべての表示されているセルを選択し、右クリックして「行の削除」を選択します。ポップアップする確認ボックスで「OK」ボタンをクリックしてください。スクリーンショットをご覧ください：

5. これで、すべての表示されていた行が削除されました。「データ」＞「フィルター」を再度クリックすると、ゼロ値のないすべてのデータを表示できます。スクリーンショットをご覧ください：

Kutools for Excelを使用して、セルにゼロが含まれる行を簡単に選択する

ここでは、「Kutools for Excel」の「特定のセルを選択する」ユーティリティの使用をお勧めします。この機能を使用すると、特定の列にゼロが含まれる行全体を指定範囲内で簡単に選択できます。これらの行を選択後、手動で管理することが可能です。

Kutools for Excelをダウンロードしてインストールした後、「Kutools」＞「選択」＞「特定のセルを選択する」をクリックして「特定のセルを選択する」ダイアログを開きます。次に、以下のようにダイアログを設定します。

1. ゼロ値に基づいて行全体を削除したい列の範囲を選択します。
2. 「選択タイプ」セクションで「行全体」オプションを選択します。
3. 最初の「指定タイプ」ドロップダウンリストで「等しい」を選択し、テキストボックスに数字「0」を入力します。
4. 「OK」ボタンをクリックします。
   

結果

指定された列にゼロ値を含むすべての行が自動的に選択されます。

ExcelでVBAを使用して、セルにゼロが含まれる行を削除する

このセクションでは、Excelの特定の列にゼロ値が存在する場合にすべての行を削除するためのVBA方法を紹介します。

1. 「Alt」+「F11」キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを表示します。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」＞「モジュール」をクリックし、次のVBAコードをモジュールウィンドウにコピー＆ペーストします。

VBA: 特定の列にゼロが存在する場合に行全体を削除する

Sub DeleteZeroRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Do
    Set Rng = WorkRng.Find("0", LookIn:=xlValues)
    If Not Rng Is Nothing Then
        Rng.EntireRow.Delete
    End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub

3. 「F5」キーを押してコードを実行します。ポップアップする「KutoolsforExcel」ダイアログボックスで、行全体を削除するゼロを含む列の範囲を選択し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

指定された列範囲内のゼロ値に基づくすべての行が即座に削除されます。

これらの方法を習得することで、Excelでのデータクリーニングプロセスを合理化し、ゼロを含む不要な行がないようにデータセットを整えることができます。Excelの機能についてさらに深く学びたい方のために、当サイトには豊富なチュートリアルが用意されています。こちらからさらに多くのExcelのヒントやコツを発見してください。

デモ：Kutools for Excelを使用して、セルにゼロが含まれる行を削除する

関連記事：

• Excelで特定のテキストを含まない行を削除するには？