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