エクセルの関数の質問です。2つのシートにAとBの列に100行分のデータが入力されています。重複しているデータを抽出して一方のシートから重複データを削除するにはどうしたらいいのでしょうか？

簡単なので過去回答参考にさせていただきました。

[追記]

書き忘れましたが、マクロで消すと元に戻せません。念のためファイルをバックアップするとかシートをコピーするとかして誤動作・誤操作に備えてください。

[/追記]

Option Explicit

'' 消す方のシートは現在表示しているアクティブシートの方です。
'' 比較対象のシートは"Sheet2"に固定されています。変更方法はコメントにあります。
'' 作業領域としてC桁に新しい桁を挿入して使い､使用後に削除しています｡
'' 作業領域のボールドで強調されているのが重複した項目です｡
'' 最後の方のコメントに従うと作業領域を消さずに残せます。
Private Sub CommandButton1_Click()
    Dim i As Long
    Dim lastRow As Long
    Dim res As Object
    
    Columns("C:C").Insert Shift:=xlToRight
    '' 比較対象のシートを変更するには下記の"Sheet2"を変更してください。
    With Worksheets("Sheet2")
        If ActiveSheet.Name = .Name Then
            Exit Sub
        End If
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 1 To lastRow
            Cells(i, "C").Value = .Cells(i, "A").Value & .Cells(i, "B").Value
        Next i
    End With

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = lastRow To 1 Step -1
        Set res = Columns("C:C").Find(what:=Cells(i, "A").Value & Cells(i, "B").Value, _
            LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True, Matchbyte:=True)
        If Not res Is Nothing Then
            Cells(i, "A").Delete Shift:=xlShiftUp
            Cells(i, "B").Delete Shift:=xlShiftUp
            res.Font.Bold = True
        End If
    Next i
    '' 下記の行の先頭に「''」加えてコメントアウトすると作業領域が残ります。
    Columns("C:C").Delete Shift:=xlShiftToLeft
End Sub

消す方のシートは現在表示しているアクティブシートの方です。

比較対象のシートは"Sheet2"に固定されています。

比較対象のシートを変更するには下記の"Sheet2"を変更してください。

    With Worksheets("Sheet2")

作業領域としてC桁に新しい桁を挿入して使い､使用後に削除しています｡

作業領域のボールドで強調されているのが重複した項目です｡

最後の方のコメントに従うと作業領域を消さずに残せます。

下記の行の様に先頭に「''」加えてコメントアウトすると作業領域が残ります。

    ''Columns("C:C").Delete Shift:=xlShiftToLeft