mazání duplicitních záznamů

[wecker]

Ahoj,

mám dvě stejné tabulky každá na jiném listě, do kterých stále přibývají záznamy. A pokud se v tabulce A objeví záznam, který je i v tabulce B tak se z tabulky B smaže. Je to možné?

Díky za rady!

[Reklama]

[Štučka]

Přidejte následující makro do vašeho souboru. To funguje pro data a čísla. Spust'te podle potřeby.

Sub RemoveDuplicateRecordFromWorksheet2()
Dim rg As String, st1 As String, st2 As String, numb As Double, x As Byte, n As Double
x = 0
n = 0
st1 = "Sheet1"
st2 = "Sheet2"
rg = "A1:A10000"
With Sheets(st2)
For numb = 10000 To 1 Step -1
With .Range("A" & numb)
If IsNumeric(Application.Match(.Value, Sheets(st1).Range(rg), x)) Then
.EntireRow.Delete
n = n + 1
End If
End With
Next numb
End With
MsgBox ("Bylo odstraneno " & n & " zaznamu")
End Sub