Ranvel VJ

Dante Amor respondió: H o l a: Preparé la macro según el ejemplo que pusiste. Sub EliminaRepetidas() 'Por.Dante Amor Columns("C").ClearContents j = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set b = Columns("B").Find(Cells(i, "A"), lookat:=xlWhole) If b Is...

Dante Amor respondió: H o l a: Te anexo la macro. Pon tus datos están en la columna A, en la columna B quedarán los únicos. Sub EliminarDuplicados() 'Por.Dante Amor j = 1 u = Range("A" & Rows.Count).End(xlUp).Row Columns("B").ClearContents For i = 1 To u res =...