シート1とシート2のB列を比較して同じ内容の行を削除するエクセルマクロの作成方法

質問

• シート1とシート2のB列を比較し、同じ内容の行を削除するエクセルマクロの作成方法について教えてください。
• 例えば、シート1のB列には栃木県3、茨城県2、福島県5という値があり、シート2のB列にも同じ値が含まれています。この場合、シート1から同じ内容の行を削除する方法を教えてください。
• マクロを使用すると、シート1のB列にある値とシート2のB列の値を比較し、同じ値がある行を削除することができます。具体的な手順やコードの記述方法について詳しく教えてください。

回答No.1

pkh4989 · ベストアンサー

以下の例を参考にしてください。
Sub 削除()
　　Dim wh1　　　　 As Worksheet
　　Dim wh2　　　　 As Worksheet
　　Dim f　　　　　 As Range
　　Dim wR　　　　　As Integer
　　Dim mR　　　　　As Long
　　Dim wStr　　　　As String
　　'
　　Set wh1 = Worksheets("Sheet1")
　　Set wh2 = Worksheets("Sheet2")
　　wR = 0
　　With wh1
　　　　mR = .Cells(Rows.Count, "A").End(xlUp).Row
　　　　For wR = mR To 1 Step -1
　　　　　　wStr = .Cells(wR, "B")
　　　　　　Set f = wh2.Range("B1:B" & wh2.Cells(Rows.Count, "B").End(xlUp).Row).Find(wStr)
　　　　　　If Not f Is Nothing Then
　　　　　　　　.Rows(wR).Delete
　　　　　　End If
　　　　Next
　　End With
End Sub

お礼

お返事遅くなり申し訳御座いません。pkh4989様の回答を参考にさせて頂きました。有難う御座います。