Guru do Excel e Power BI

Function Cont_Park(Intervalo As Range)
Dim cell As Range
Dim cell_2 As Range
Dim Confere As Boolean
Dim número_colunas As Long
Dim Contador As Long

Dim i As Long
número_colunas = Intervalo.Columns.Count

'Para cada célula no range
For Each cell In Intervalo
Contador = 0
'Partir sempre da primeira
    If cell.Column = Intervalo.Columns(1).Column Then
        'Para cada célula no range
            For Each cell_2 In Intervalo
                'Partir sempre da primeira
                If cell_2.Column = Intervalo.Columns(1).Column Then
                    'Rodar por todas as colunas, e verificar se tudo é igual
                    For i = 0 To número_colunas - 1
                        If cell_2.Offset(0, i) <> cell.Offset(0, i) Then: GoTo Diferente
                    Next i
                        Contador = Contador + 1
                       
Diferente:
                End If
            Next cell_2
    End If
'Se contador tiver mais que um (ou seja, se houver mais de uma repetição), somar 1
If Contador > 1 Then: Cont_Park = Cont_Park + 1
Next cell
                            
End Function