別のシートの条件に一致しない行を削除するには、どうすればよいですか？

同じシート内で条件に一致しない行を削除するのは難しくないかもしれませんが、以下のように、別のシート上の条件に基づいて行を削除する方法をご存じでしょうか？ここでは、その課題を素早く解決できる2 つのテクニックをご紹介します。

VBA を使用して別のシートの条件に一致しない行を行の削除

Kutools for Excel を使用して別のシートの条件に一致しない行を行の削除

条件（シート 2 内）	前（シート 1）		後（Sheet1）

---

VBA を使用して別のシートの条件に一致しない行を行の削除

別のシートの条件に一致しない行を削除する VBA コードがあります。

1。Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。ウィンドウで挿入 > モジュールをクリックして新しいモジュールウィンドウを開き、次の VBA コードをそのウィンドウにコピーしてください。

VBA：Excel で別のシートの条件に一致しない行を行の削除

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3。クリックしてください。実行、KutoolsforExcelダイアログが表示されるので、条件に一致しない行を削除したい範囲を選択できます（下記スクリーンショット参照）。

4。OKをクリックすると、別のシートから条件範囲を選択するダイアログが表示されます（下記スクリーンショット参照）。

5。これで、別のシートの条件に一致しない行がすべて削除されました。

---

Kutools for Excel を使用して別のシートの条件に一致しない行を行の削除

VBA コードが少し難しく感じられる場合は、ぜひKutools for Excel の「範囲を比較」機能をお試しください。

Kutools for Excelには、300 以上の便利なExcel ツールが搭載されています。30 日間、すべての機能を無料で制限なくお試しいただけます。今すぐ入手

1。条件に一致しない行を削除したいシートを選択し、Kutools > 範囲 > セルの比較をクリックします（下記スクリーンショット参照）。

2。「セルの比較」ダイアログで、範囲 Bのボタンをクリックし、必要な条件範囲を選択してください（下記スクリーンショット参照）。

 

3。次に、OKをクリックして範囲を比較ダイアログに戻り、異なる値と行全体を選択にチェックを入れます（下記スクリーンショット参照）。

4。OKをクリックして範囲を比較ダイアログを閉じると、条件と異なる値を持つ行が選択されていることを確認できます。

5。コンテキストメニューから削除をクリックして、別のシートの条件に一致しない行を削除します。

Kutools for Excel の「範囲を比較」機能の詳細については、こちらをクリックしてください。

---

関連記事：

• Excel で特定のテキストを含まない行の削除

---