Visual Basic en Excel
Hola: deseo eliminar una fila siempre y cuando una celda se encuentre repetida, de manera que me deje solo una fila.
Por ejemplo: tengo la clave de un alumno en la columna G; deseo que esa clave sea única y que si la tengo repetida la elimine.
Gracias.
Por ejemplo: tengo la clave de un alumno en la columna G; deseo que esa clave sea única y que si la tengo repetida la elimine.
Gracias.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Aquí te dejo un código que me encontré para que borres los datos duplicados.
Sub BorraRepetidos()
Dim a() As String, rng As Range, str As String, i As Long
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
Sub BorraRepetidos()
Dim a() As String, rng As Range, str As String, i As Long
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
