Bom dia!!

Por favor tire um tempo e lei as regras, na próxima favor postar o arquivo compactado!!

Nossas Regras:
viewtopic.php?f=7&t=203

Me diz uma coisa, e caso você tenha neste intervalo 6 dezenas de número 11, e em H2 o número 5???

Outra pergunta, e caso você tenha neste intervalo 5 dezenas de número 11, e em H2 o número 5???

Att

Bom dia
Alex vba, desculpa a falta de atenção quanto a postagem, conheço as regras. O 5 na célula H2 é tão somente para informar quantos números repetidos terão que sair da lista, esse numero é variável, vai depender da necessidade do usuário. Qualquer numero que estejam fora desse critério (H2) é deletado até atingir o esperado. É isso.

Bom dia!!

Faça os teste..

Sub test()
    Dim dic As Object, i As Long, ii As Long, temp
    Dim myLimit As Long, w()
    myLimit = Range("h2").Value
    Set dic = CreateObject("Scripting.Dictionary")
    With Range("h4").CurrentRegion
        For ii = 1 To .Columns.Count
            For i = 1 To .Rows.Count
                temp = .Cells(i, ii).Value
                If Not dic.exists(.Cells(i, ii).Value) Then
                    ReDim w(1)
                    Set w(0) = .Cells(i, ii)
                    w(1) = 1
                    dic(.Cells(i, ii).Value) = w
                Else
                    w = dic(temp)
                    w(1) = w(1) + 1
                    If w(1) = myLimit + 1 Then
                        w(0).ClearContents
                    End If
                    Set w(0) = Union(w(0), .Cells(i, ii))
                    dic(temp) = w
                End If
            Next
        Next
    End With
    Set dic = Nothing
End Sub

Boa tarde

Alexandrevba, meus agradecimentos, a macro ficou muito boa.

Abraço

Boa tarde!!

Gostaria que fisese todos os teste necessários caso seja realmente isso, então marque seu tópico como resolvido!!

Att

Boa noite

Meu caro Alex vba, a solução da macro ficou a contento e por isso quero marcar como resolvido

Boa noite!!

Eu vou marcar para você, mas veja como fazer isso na próxima.

Marcar Tópico como Resolvido e Agradecimento:
viewtopic.php?f=7&t=3784