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

eliminar filas duplicada

Ver el tema anterior Ver el tema siguiente Ir abajo

eliminar filas duplicada

Mensaje por xaviervelezano el Mar Abr 28, 2009 3:06 pm

Tengo hojas con filas que se duplican , necesitaria dejar solo una de esas filas, aveces se repiten 2 veces otras 3 , es aleatorio la cantidad de duplicaciones ,y hay otras en la misma hoja que no se duplican, lo importante que de todas las duplicadas solo debo dejar una .

saludos y gracias.
xavier

xaviervelezano

Masculino Cantidad de envíos : 1
Edad : 36
Ciudad - Pais : Buenos Aires
Version de Excel : 2000
Fecha de inscripción : 27/04/2009

Volver arriba Ir abajo

Re: eliminar filas duplicada

Mensaje por jairga el Mar Abr 28, 2009 5:25 pm

prueba esta macro, hazlo en una copia del tuyo, aclaro no es mia la macro

Código:
Sub borrar_menos1()
    Dim a() As String, rng As Range, str As String, i As Long, r As Range
    Set rng = Range("a2", Range("a65536").End(xlUp))
start:
    For Each r In rng
    If Application.CountIf(Range("a2:a" & r.Row), r) > 1 Then
    i = i + 1
    ReDim Preserve a(1 To i)
    a(i) = r.Address(0, 0)
    If i = 50 Then
    str = Join(a, ",")
    Range(str).EntireRow.Delete
    i = 0
    Erase a
    GoTo start
    End If
    End If
    Next
    str = Join(a, ",")
    If str <> "" Then
    Range(str).EntireRow.Delete
    End If
    Erase a
End Sub

saludos

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 39
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: eliminar filas duplicada

Mensaje por GalileoGali el Mar Abr 28, 2009 7:56 pm

Otra posibilidad sin macros:
es usar filtros Avanzados, sin establecer criterio alguno, tildando "Solo registros unicos", copiando a otro Lugar, Hoja Auxiliar. Borrando los datos y copiando la Hoja Auxiliar, a la de origen

En Excel 2007, existe un recurso sin moverse, definiendo el rango como tabla, se filtra "en el lugar" pero sin ocultar filas, sino emlimnando las celdas, sin desacomodar el resto de los datos de la hoja.....

_________________
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

Re: eliminar filas duplicada

Mensaje por GalileoGali el Mar Abr 28, 2009 8:50 pm

Esta recurre a macros....
Código:
Option Explicit

Sub DepurarRango()
Dim rng As Range, fila As Range
Dim i As Long
Set rng = Range("A2").CurrentRegion
Application.ScreenUpdating = False

With rng
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
For Each fila In rng.Rows
If fila.Hidden = True Then fila.Cells(1) = "#"
Next fila
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
For i = rng.Rows.Count To 2 Step -1
If rng.Columns(1).Cells(i) = "#" Then rng.Columns(1).Cells(i).EntireRow.Delete
Next i
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

Re: eliminar filas duplicada

Mensaje por Contenido patrocinado Hoy a las 1:59 am


Contenido patrocinado


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.