Eliminar filas duplicadas en documentos Excel

Manualillo de SFX

Hay que crear una macro :

1. Entrar en el menú superior en «herramientas/macro/macro»

2. Poner un nombre a la macro que vamos a crear y pulsar  «crear»

3. A continuación se abre una ventana de visual basic con  la información siguiente Sub nombremacro() INTRODUCIR EL CÓDIGO AQUÍ End Sub

El código que debemos meter es el siguiente:

Dim fila As Long
  With Application
         For fila = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
          If .WorksheetFunction.CountIf(Range(«A:A»), _
              Cells(fila, 1)) > 1 Then Cells(fila, 1).EntireRow.Delete
      Next fila
       End With

4. Guardar este archivo y cerrar visual basic

5. La macro se queda guardada para las próximas veces con el nombre que le hayamos dado. Para ejecutarla hay que ir a heramientas/macro/macro y seleccionar la macro 

Print Friendly, PDF & Email