Eliminar filas pares o impares en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

Podemos eliminar filas pares o impares en Excel sobre los datos de nuestra hoja.

Mediante una macro, podemos eliminar las filas de un rango.
  • FILAS PARES

  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

  4. Escribir el código de la macro:

    Sub EliminaPar()

    ActiveSheet.Range("A1:A5000").Select
    Y = False
    I = 1

    Set xRng = Selection
    For xCounter = 1 To xRng.Rows.Count

    If Y = True Then
    xRng.Cells(I).EntireRow.Delete
    Else
    I = I + 1
    End If
    Y = Not Y

    Next xCounter

    End Sub

    – ActiveSheet.Range("A1:A5000").Select Indica el rango de filas que eliminará A1:A5000.

    – Y = False. Indica el rango de filas pares.

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Eliminar filas pares o impares en Excel: Hoja con valores y con filas impar eliminadas
  • FILAS IMPARES

  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

  4. Escribir el código de la macro:

    Sub EliminaImpar()

    ActiveSheet.Range("A1:A5000").Select
    Y = True
    I = 1

    Set xRng = Selection
    For xCounter = 1 To xRng.Rows.Count

    If Y = True Then
    xRng.Cells(I).EntireRow.Delete
    Else
    I = I + 1
    End If
    Y = Not Y

    Next xCounter

    End Sub

    – ActiveSheet.Range("A1:A5000").Select Indica el rango de filas que eliminará A1:A5000.

    – Y = True. Indica el rango de filas impares.

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Eliminar filas pares o impares en Excel: Hoja con valores y con filas par eliminadas
  • FILAS PARES/IMPARES CON AVISOS

  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

  4. Escribir el código de la macro:

    Sub EliminaParImpar()

    pre = MsgBox("¿Deseas Eliminar las filas PARES?" & vbCrLf & vbCrLf & vbCrLf & "SI para filas PARES" & vbCrLf & "NO para filasIMPARES", vbQuestion + vbYesNoCancel, "Pregunta")
    If pre = vbYes Then
    ActiveSheet.Range("A1:A5000").Select

    Y = False
    I = 1
    Set xRng = Selection
    For xCounter = 1 To >7span>xRng.Rows.Count

    If Y = True Then

    xRng.Cells(I).EntireRow.Delete

    Else

    I = I + 1

    End If
    Y = Not Y

    Next xCounter

    ActiveSheet.Range("A1").Select
    x = MsgBox("¡ Filas PARES ELIMINADAS !", vbCritical + vbOKOnly, "Aviso")
    Else
    If
    pre = vbNo Then
    ActiveSheet.Range("A1:A5000").Select

    Y = True
    I = 1
    Set xRng = Selection
    For xCounter = 1 To xRng.Rows.Count

    If Y = True Then

    xRng.Cells(I).EntireRow.Delete

    Else

    I = I + 1

    End If
    Y = Not Y

    Next xCounter

    ActiveSheet.Range("A1").Select
    x = MsgBox("¡ Filas IMPARES ELIMINADAS !", vbCritical + vbOKOnly, "Aviso")
    Else
    If
    pre = vbCancel Then
    End If
    End If
    End If
    End Sub

    – ActiveSheet.Range("A1:A5000").Select Indica el rango de filas que eliminará A1:A5000, permita eliminar filas pares o impares.

    – Y = False. Indica el rango de filas pares.

    – Y = True. Indica el rango de filas impares.

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

    Eliminar filas pares o impares en Excel: Macro ejecutada para eliminar filas impares
  6. Verificar como la macro nos permite eliminar las filas pares o impares.

Así podemos disponer de una macro que permita eliminar filas pares o impares en Excel.

  

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA – Macros

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *