¿Cómo pudo eliminar registros repetidos en una hoja de excel mediante la utilización de una macro?
Buenos dias,
Tengo una hoja de cálculo de excel con varios registros de empresas, el problema es que algunas de ellas están repetidas. Me gustaría, si fura possible, eliminar los registros repetidos. Creo que es posible hacerlo con una macro, el problema es que no se como.
Muchas gracias.
Iban
1 Respuesta
Puedes eliminar los registros sin necesidad de una macro, suponiendo tus datos
A B
1 empresas
2 EMP1
3 EMP1
4 EMP2
5 EMP2
6 EMP3
-Selecciona la columna A,
-Ordena la columna descendente o ascendente,
-Selecciona del menú Filtro / Filtro Avanzando
-Marca la Acción: copiar a otro lado
-Copiar a : Selecciona la celda B1
-Marca la casilla de "Sólo registros únicos"
-Aceptar
El resultado es:
A B
1 empresas empresas
2 EMP1 EMP1
3 EMP1 EMP2
4 EMP2 EMP3
5 EMP2
6 EMP3
También te envío la macro
Sub unicos()
'Valores únicos
'Por.Dam
Columns("A:A").Select
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("A2:A9"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hoja1").Sort
.SetRange Range("A:A")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1" _
), Unique:=True
End SubSaludos.Dam
Podrías
