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

同じシートの基準に一致しない行を削除することは難しくないかもしれませんが、以下に示すように、別のシートの基準に一致しない行を削除する方法を知っていますか。 今、私はあなたがそれを素早く解決するのを助けることができるXNUMXつのトリックを持っています。

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

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

基準（シート2）	前（シート1）		後（シート1）

---

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

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

1。 押す Altキー+ F11 を表示する アプリケーション向け Microsoft Visual Basic 窓。

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。 クリック ラン Kutools for Excel 条件に一致しない行を削除する範囲を選択するためのダイアログがポップアップ表示されます。 スクリーンショットを参照してください：

4。 クリック OK、および別のシートで基準を選択するための別のダイアログが表示されます。スクリーンショットを参照してください。

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

---

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

VBAコードが少し難しい場合は、Kutools forExcelの範囲の比較機能を試してみてください。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手

1.条件に一致しない行を削除するシートを選択します。 そしてクリック クツール > 範囲を比較する。 スクリーンショットを参照してください：

2。 の中に 範囲を比較する ダイアログで、ボタンをクリックします 範囲B、次に、必要な基準範囲を選択できます。 スクリーンショットを参照してください：

 

3。 次に、をクリックします OK、次に戻る 範囲を比較する ダイアログ、チェック 異なる価値 & 行全体を選択。 スクリーンショットを参照してください：

4。 クリック Ok、を終了します 範囲を比較する ダイアログ。 次に、基準とは異なる値の行が選択されていることがわかります。

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

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

---

関連記事：

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