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

同じシート上の基準に一致しない行を削除するのは難しくないかもしれませんが、別のシートで基準に一致しない行を削除する方法はご存じですか。以下に示すように、今私はそれを迅速に解決するのに役立つ2つの方法を持っています。

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

Kutools for Excelを使用して別のシートの基準に一致しない行を削除する

基準（Sheet 2）	前（Sheet 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で特定のテキストを含まない行を削除する

---