Eliminar duplicados del rango de celdas en Excel vba

excel-vba excel-2013

Question

Estoy tratando de eliminar duplicados en Excel 2013 VBA. pero recibo el error "el objeto no admite esta propiedad o método". El problema es que no tengo un rango estático para seleccionar. Quiero eliminar duplicados del encabezado de columna ''abcd''.

Cells.Find(what:="abcd").Activate
ActiveCell.EntireColumn.Select
Set rng = Selection
ActiveSheet.rng.RemoveDuplicates

Answer 1

Para eliminar duplicados de una sola columna

 Sub removeDuplicate()
 ''removeDuplicate Macro
 Columns("A:A").Select
 ActiveSheet.Range("$A$1:$A$117").RemoveDuplicates Columns:=Array(1), _ 
 Header:=xlNo 
 Range("A1").Select
 End Sub

si tiene un encabezado, entonces use Header:=xlYes

Aumente su alcance según sus necesidades.
puedes llegar a 1000 así:

ActiveSheet.Range("$A$1:$A$1000")

Más información aquí aquí

Answer 2

Debe indicarle al método Range.RemoveDuplicates qué columna usar. Además, dado que ha expresado que tiene una fila de encabezado, debe decirle al método .RemoveDuplicates que.

Sub dedupe_abcd()
    Dim icol As Long

    With Sheets("Sheet1")   ''<-set this worksheet reference properly!
        icol = Application.Match("abcd", .Rows(1), 0)
        With .Cells(1, 1).CurrentRegion
            .RemoveDuplicates Columns:=icol, Header:=xlYes
        End With
    End With
End Sub

Su código original parecía querer eliminar duplicados de una sola columna mientras ignoraba los datos circundantes. Ese escenario es atípico y he incluido los datos circundantes para que el proceso .RemoveDuplicates no codifique sus datos. Publique un comentario si realmente desea aislar el proceso RemoveDuplicates en una sola columna.