Найти дубликаты на нескольких листах

Question

Я хочу узнать, есть ли дубликаты на 2 листах.

Пример 1 (Это работает для этого листа):

Function FindDuplicate(factnr) As Boolean

    With Worksheets("Sheet 1").Range("D6:D206")

        Set C = .Find(factnr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        If Not C Is Nothing Then
            FindDuplicate = True
            Exit Function
        End If
    End With

    FindDuplicate = False
End Function

Пример 2 (это то, что я хочу выполнить[mock code], функция проверки двух листов)

Function FindDuplicate(factnr) As Boolean

   With Worksheets("Sheet 1").Range("D6:D206") & ("Sheet 2").Range("D6:D206")

     Set C = .Find(factnr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
     If Not C Is Nothing Then
         FindDuplicate = True
         Exit Function
     End If
   End With

   FindDuplicate = False
End Function

Answer 1

Вы не можете присоединиться к таким диапазонам, вам нужно искать каждый отдельно

Function FindDuplicate(factnr) As Boolean

 With Worksheets("Sheet 1").Range("D6:D206") 

     Set C = .Find(factnr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
     If Not C Is Nothing Then
        FindDuplicate = True
        Exit Function
      End If
End With
     With Worksheets("Sheet 2").Range("D6:D206")

     Set C = .Find(factnr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
     If Not C Is Nothing Then
        FindDuplicate = True
        Exit Function
      End If
End With


FindDuplicate = False
End Function