Macro que borre repetidos de 4 celdas
Buenas noches experto nuevamente solicito de su invaluable ayuda, tengo una hoja con más de 65000 códigos postales pero en su mayoría se repiten hasta 15 veces el mismo código postal y necesito una macro que me quite todos los códigos postales repetidos y que solo me quede uno por zona, ciudad, y estado.
Así lo tengo en mi formato.
a2- código postal de la ciudad
b2- nombre del municipio o ciudad
c2- nombre del estado
d2- código postal de la oficina que recibe o despacha
Espero haber sido claro y desde ya mil gracias
Saludos cordiales.
Así lo tengo en mi formato.
a2- código postal de la ciudad
b2- nombre del municipio o ciudad
c2- nombre del estado
d2- código postal de la oficina que recibe o despacha
Espero haber sido claro y desde ya mil gracias
Saludos cordiales.
1 respuesta
Respuesta de Eduard Caballero
1
Acá tienes un macro que borra registros repetidos. Antes de aplicarlo recomiendo hacer una copia del archivo y trabajar sobre este. Ademas debes colocarte en la columna donde se repiten los datos
Sub FixDuplicateRows()
Dim RowNdx As Long
Dim ColNum As Integer
ColNum = Selection(1).Column
For RowNdx = Selection(Selection.Cells.Count).Row To _
Selection(1).Row + 1 Step -1
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Value Then
Cells(RowNdx, ColNum).Select
Selection.EntireRow.Delete
End If
Next RowNdx
End Sub
Sub FixDuplicateRows()
Dim RowNdx As Long
Dim ColNum As Integer
ColNum = Selection(1).Column
For RowNdx = Selection(Selection.Cells.Count).Row To _
Selection(1).Row + 1 Step -1
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Value Then
Cells(RowNdx, ColNum).Select
Selection.EntireRow.Delete
End If
Next RowNdx
End Sub
