VBA Получение двойного значения из нескольких листов

Question

У меня есть лист Excel, и я хочу макрос, который ищет в листе Excel двойные значения.У меня есть несколько рабочих таблиц, и макрос должен искать из столбца A - первое значение -> до рабочего листа 2, столбец A - первое значение.

Я пробовал его с VBA, но он не работал.Может быть, некоторые из вас могут помочь мне!

Sub DoppelteEinträge()
   Dim Tabellen()
   Dim i As Integer
   Dim n As Integer
   Dim z As Integer
   Dim AnzahlZellen As Integer
   Dim AnzahlTabellen As Integer
   Dim anzahldoppelte As Integer



AnzahlZellen = Application.WorksheetFunction.CountA(Range("A:A"))
AnzahlTabellen = ThisWorkbook.Sheets.Count

For i = 0 To 3
    ReDim Preserve Tabellen(i)
    Tabellen(i) = Worksheets(i + 1).Name
Next

For z = 1 To AnzahlTabellen

    For n = 1 To AnzahlZellen
        Worksheets(Tabellen(0)).Select
        Range("A" & n).Select

        If Range("A" & n) = Worksheets(Tabellen(z)).Range("A" & n) Then
        anzahldoppelte = anzahldoppelte + 1
        End If
    Next
Next
End Sub