Excelで特定のテキストを含まない行を削除するにはどうすればよいですか？

おそらく、Excelで特定のテキストを含む場合にすべての行を削除する方法を知っている人もいるでしょう。しかし、特定のテキストを含まない場合に行全体を削除したい場合はどうすればよいでしょうか？このチュートリアルに従って、Excelでこの問題を解決する方法を見つけてください。

フィルターを使用して特定のテキストを含まない行を削除する

VBAを使用して特定のテキストを含まない行を削除する

Kutools for Excelを使用して特定のテキストを含まない行を削除する

---

フィルターを使用して特定のテキストを含まない行を削除する

Excelでは、フィルター機能を使用すると、特定のテキストを含まない行を簡単にフィルタリングでき、その後それらを選択して削除できます。

1. 対象となる列（基準となるテキストが含まれる列）を選択し、[データ] > [フィルター] をクリックします。スクリーンショットをご覧ください：

2. 列のヘッダーにあるフィルターボタンをクリックしてドロップダウンリストを開き、基準とする特定のテキスト以外のすべてをチェックします。スクリーンショットをご覧ください：

3. これで、ヘッダー行と特定のテキストを含まない行のみがフィルタリングされます。スクリーンショットをご覧ください：

4. ヘッダー行以外のすべてを選択し、右クリックしてコンテキストメニューから[行の削除]を選択します。スクリーンショットをご覧ください：

5. 再び[データ] > [ フィルター]をクリックすると、特定のテキストを含まないすべての行が削除されます。スクリーンショットをご覧ください：

---

VBAを使用して特定のテキストを含まない行を削除する

VBAは、Excelでのやや難しい操作に非常に役立ちます。以下の手順に従って、特定のテキストを含まない行を削除してください。

1. Alt + F11を押してMicrosoft Visual Basic for Applicationsウィンドウを表示します。

2. ウィンドウで挿入 > モジュールをクリックして新しいモジュールウィンドウを表示し、次のVBAコードをモジュールウィンドウにコピーします。

VBA: 特定のテキストを含むセルがある場合、その行全体を削除します。

Sub DeleteRowNoInclude()
'Updateby Extendoffice
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 実行 ボタンをクリックすると、作業範囲を選択するためのダイアログが表示されます。スクリーンショットをご覧ください：

4. [OK]をクリックし、基準となるテキストを別のポップアップダイアログに入力します。スクリーンショットをご覧ください：

5. [OK]をクリックすると、Appleを含まない行が削除されます。

---

Kutools for Excelを使用して特定のテキストを含まない行を削除する

上記の方法が使いにくいと感じる場合、Kutools for Excelの「特定のセルを選択」機能を使用できます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手

1. 特定のテキストを含まない行を削除したい列を選択し、[Kutools] > [選択ツール] > [特定のセルを選択]をクリックします。スクリーンショットをご覧ください：

2. 「 特定のセルを選択」ダイアログで、「行全体」をチェックし、「 含まない」を選択し、指定されたテキストをテキストボックスに入力します。また、「指定タイプ」セクションの範囲ボタンをクリックして、特定のテキストを含むセルを選択することもできます。

3. [OK]をクリックすると、特定のテキストを含まない行が選択されます。右クリックしてコンテキストメニューから[ 削除]を選択します。スクリーンショットをご覧ください：

4. これで、範囲内で特定のテキストを含まないすべての行が削除されました。「特定のセルを選択」についての詳細はこちらをクリックしてください。

---

関連記事：

• Excelでゼロを含まないセルがある場合、その行全体を削除する
• 別のシートの基準に一致しない行を削除する