none
Erro de definição / compilação RRS feed

  • Pergunta

  • Boa tarde!

    Estou tentando usar o RemoveDuplicate em uma coluna com textos e estou obtendo os seguintes erros:

    1) utilizando variáveis no Range, conforme abaixo, obtenho o erro em tempo de execução '1004': "erro de definição de aplicativo ou de definição de objeto"

    ActiveSheet.Range("A" & lin_ini & ":A" & linha_fim).RemoveDuplicates Columns:=1, Header:= _
        xlNo

    2) fixando linha e coluna no Range, conforme abaixo, obtenho erro de compilação: "era esperado: Separador de lista ou )"

    ActiveSheet.Range(A2:A476).RemoveDuplicates Columns:=1, Header:= _
    xlNo

    Alguém tem uma dica?

    Att,

    domingo, 1 de março de 2020 16:50

Todas as Respostas

  • Olá, tudo certinho?

    Fiz um teste aqui e com esse código abaixo funcionou corretamente:

    Sub Macro1()
        Dim ini As Long, fim As Long

        ini = 1
        fim = 100

        Columns("A:A").Select

        ActiveSheet.Range("A" & ini & ":A" & fim).RemoveDuplicates Columns:=1, Header:=xlNo
    End Sub

    segunda-feira, 2 de março de 2020 16:28