............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Extraer valores Unicos o no repetidos

Ver el tema anterior Ver el tema siguiente Ir abajo

Extraer valores Unicos o no repetidos

Mensaje por GalileoGali el Vie Abr 11, 2008 8:27 am

Se trata de EXTRAER NO REPETIDOS, es decir solo aquellos registros de una tabla que figuran solamente una vez, si se tratara de registros que figuran mas de una vez, eliminar todas las ocurrencias....

DESCARGAR ARCHIVO

Código:
Sub filtrar()
Dim rng As Range
Application.ScreenUpdating = False
With Hoja1
Set rng = Range(.Range("A1"), .Cells(Rows.Count, 1).End(xlUp))
.Range("H:H").Clear
.Range("E2").Formula = "=countif(" & rng.Address & ",A2)=1"

  rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
        "E1:E2"), CopyToRange:=Range("H1"), Unique:=False
.Range("E2").Clear
End With
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.