(macros) Obtener celdas únicas de un rango Excel

Páginas:

       1   2   3   4   5   6   7

La siguiente macro obtiene de un rago de celdas los valores únicos


Sub unicos()
 Dim mirango, destino As Range
 Set mirango = Range(ActiveCell, ActiveCell.Cells(Selection.Rows.Count,Selection.Columns.Count))
 Set destino = Application.InputBox(prompt:="Introduce el rango destino", Type:=8)
 Range(mirango.Address).Select
 Range(mirango.Address).AdvancedFilter _
 Action:=xlFilterCopy, _
 CopyToRange:=Range(destino.Address), _
 CriteriaRange:=Range(mirango.Address), _
 Unique:=True
End Sub

(macros) Obtener celdas únicas de un rango Excel