Como eliminar todas as outras filas ou cada enésima fila en Excel

  • Comparte Isto
Michael Brown

Este breve tutorial explica como eliminar todas as outras filas en Excel filtrando ou con código VBA. Tamén aprenderá a eliminar cada 3a, 4a ou calquera outra fila enésima.

Hai moitas situacións nas que pode ter que eliminar filas alternativas nas follas de cálculo de Excel. Por exemplo, pode querer conservar os datos das semanas pares (filas 2, 4, 6, 8, etc.) e mover todas as semanas impares (filas 3, 5, 7, etc.) a outra folla.

Xeralmente, eliminar todas as outras filas en Excel redúcese a seleccionar filas alternativas. Unha vez seleccionadas as filas, só fai falta un só golpe no botón Eliminar . Máis adiante neste artigo, aprenderá algunhas técnicas para seleccionar e eliminar rapidamente todas as outras ou cada N-ésima fila en Excel.

    Como eliminar todas as outras filas en Excel filtrando

    En esencia, unha forma común de borrar todas as outras filas en Excel é esta: primeiro, filtras filas alternativas, despois seleccionalas e eliminalas todas á vez. Os pasos detallados seguen a continuación:

    1. Nunha columna baleira xunto aos datos orixinais, introduce unha secuencia de ceros e uns. Podes facelo rapidamente escribindo 0 na primeira cela e 1 na segunda cela, despois copiando as dúas primeiras celas e pegándoas na columna ata a última cela con datos.

      Alternativamente, pode usar esta fórmula:

      =MOD(ROW(),2)

      A lóxica da fórmula é moi sinxela: a función ROW devolve o número de fila actual, a función MODdivídeo por 2 e devolve o resto redondeado ao número enteiro.

      Como resultado, tes 0 en todas as filas pares (porque se dividen por 2 de xeito uniforme sen resto) e 1 en todas as filas impares:

    2. Depende de se queres eliminar filas pares ou impares, filtrar uns ou ceros.

      Para facelo, selecciona calquera cela da túa columna Axudante, vai á pestana Datos > Ordenar e filtrar grupo e fai clic no Filtro . botón. As frechas do filtro despregable aparecerán en todas as celas de cabeceira. Fai clic no botón de frecha da columna Asistente e marca unha das caixas:

      • 0 para eliminar filas pares
      • 1 para eliminar filas impares

      Neste exemplo, imos eliminar as filas con valores "0", polo que as filtramos:

    3. Agora que todas as filas "1" están ocultas, selecciona todas as filas "0" visibles, fai clic co botón dereito na selección e fai clic en Eliminar fila :

    4. O paso anterior deixouche unha táboa baleira , pero non te preocupes, as filas "1" seguen aí. Para facelos visibles de novo, só tes que eliminar o filtro automático facendo clic de novo no botón Filtrar :

    5. A fórmula da columna C recalcula para as filas restantes. pero xa non o necesitas. Agora podes eliminar con seguridade a columna do Axudante:

    Como resultado, só quedan as semanas pares na nosa folla de traballo, as semanas impares desapareceron.

    Consello. Se queres mover todosoutra fila a outro lugar en lugar de eliminalas por completo, primeiro copie as filas filtradas e pégueas nunha nova localización e, a continuación, elimine as filas filtradas.

    Como eliminar filas alternativas en Excel con VBA

    Se non estás disposto a perder o teu tempo nunha tarefa trivial, como eliminar todas as outras filas das túas follas de cálculo de Excel, a seguinte macro VBA pode automatizar o proceso por ti:

    Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Establecer SourceRange = Application.InputBox( "Range:" , "Seleccione o intervalo" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count >= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = Falso Para RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) Para 1 Paso -2 Establecer FirstCell = SourceRange.Cells (RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End Sub

    Como eliminar todas as outras filas en Excel usando a macro

    I insira a macro na súa folla de traballo do xeito habitual a través do Editor de Visual Basic:

    1. Preme Alt + F11 para abrir a xanela de Visual Basic para Aplicacións.
    2. Na barra de menú superior, fai clic en Inserir > Módulo e pega a macro anterior no Módulo
    3. Preme a tecla F5 para executar a macro.
    4. Aparecerá unha caixa de diálogo que lle pedirá que seleccione un intervalo. Seleccione a súa táboa e premaOK:

    Feito! Elimínanse todas as outras filas do intervalo seleccionado:

    Como eliminar cada Nth fila en Excel

    Para esta tarefa, imos ampliar o filtrado técnica que usamos para eliminar todas as outras filas. A diferenza está na fórmula na que se basea o filtrado:

    MOD(ROW()- m, n)

    Onde:

    • m é o número de fila da primeira cela con datos menos 1
    • n é a enésima fila que quere eliminar

    Digamos que os teus datos comezan na fila 2 e queres eliminar cada 3a fila. Entón, na túa fórmula n é igual a 3, e m é igual a 1 (fila 2 menos 1):

    =MOD(ROW() - 1, 3)

    Se os nosos datos comezaron en a fila 3, entón m sería igual a 2 (a fila 3 menos 1), etc. Esta corrección é necesaria para numerar secuencialmente as filas, comezando polo número 1.

    O que fai a fórmula é dividir un número de fila relativo por 3 e devolver o resto despois da división. No noso caso, dá cero por cada terceira fila porque cada terceiro número divide por 3 sen resto (3,6,9, etc.):

    E agora ti realice os pasos xa coñecidos para filtrar as filas "0":

    1. Seleccione calquera cela da súa táboa e faga clic no botón Filtrar no Datos
    2. Filtra a columna Axudante para mostrar só os valores "0".
    3. Selecciona todas as filas "0" visibles, fai clic co botón dereito e escolla Eliminar fila no menú contextual.
    4. Retira o filtro eeliminar a columna Axudante.

    De forma semellante, pode eliminar cada 4ª, 5ª ou calquera outra fila enésima en Excel.

    Consello. No caso de que necesites eliminar filas con datos irrelevantes, o seguinte tutorial será útil: Como eliminar filas en función do valor da cela.

    Grazas por ler e espero verte de novo no noso blog a próxima semana. .

    Michael Brown é un entusiasta da tecnoloxía dedicada á súa paixón por simplificar procesos complexos mediante ferramentas de software. Con máis dunha década de experiencia na industria tecnolóxica, perfeccionou as súas habilidades en Microsoft Excel e Outlook, así como en Follas de cálculo e Documentos de Google. O blog de Michael está dedicado a compartir o seu coñecemento e experiencia con outros, proporcionando consellos e titoriais fáciles de seguir para mellorar a produtividade e a eficiencia. Tanto se es un profesional experimentado como un principiante, o blog de Michael ofrece valiosas ideas e consellos prácticos para sacar o máximo proveito destas ferramentas de software esenciais.