Taula de continguts
Aquest breu tutorial explica com esborrar totes les altres files d'Excel filtrant o amb codi VBA. També aprendràs a suprimir cada 3a, 4a o qualsevol altra fila enèsima.
Hi ha moltes situacions en què és possible que hagis d'eliminar files alternatives als fulls de treball d'Excel. Per exemple, és possible que vulgueu conservar les dades de les setmanes parells (files 2, 4, 6, 8, etc.) i moure totes les setmanes senars (files 3, 5, 7, etc.) a un altre full.
En general, eliminar totes les altres files a Excel es redueix a seleccionar files alternatives. Un cop seleccionades les files, només cal fer un sol cop al botó Suprimeix . Més endavant, en aquest article, aprendràs algunes tècniques per seleccionar i suprimir ràpidament totes les altres files o cada enèsima fila d'Excel.
Com esborrar totes les altres files a Excel filtrant
En essència, una manera habitual d'esborrar totes les altres files d'Excel és aquesta: primer, filtreu les files alternatives, després les seleccioneu i les suprimiu totes alhora. A continuació es detallen els passos següents:
- En una columna buida al costat de les dades originals, introduïu una seqüència de zeros i uns. Podeu fer-ho ràpidament escrivint 0 a la primera cel·la i 1 a la segona cel·la, després copiant les dues primeres cel·les i enganxant-les a la columna fins a l'última cel·la amb dades.
Alternativament, podeu utilitzar aquesta fórmula:
=MOD(ROW(),2)La lògica de la fórmula és molt senzilla: la funció ROW retorna el número de fila actual, la funció MODel divideix per 2 i retorna la resta arrodonida a l'enter.
Com a resultat, tens 0 a totes les files parells (perquè es divideixen per 2 de manera uniforme sense resta) i 1 a totes les files senars:
- Depenent de si voleu suprimir les files parells o senars, filtrar uns o zeros.
Per fer-ho, seleccioneu qualsevol cel·la de la columna de l'Ajudant, aneu a la pestanya Dades > Ordena i filtra grup i feu clic al Filtre . botó. Les fletxes del filtre desplegable apareixeran a totes les cel·les de capçalera. Feu clic al botó de fletxa de la columna Helper i marqueu una de les caselles:
- 0 per suprimir files parells
- 1 per suprimir files senars
En aquest exemple, eliminarem les files amb valors "0", de manera que les filtrem:
- Ara que totes les files "1" estan amagades, seleccioneu totes les files "0" visibles, feu clic amb el botó dret a la selecció i feu clic a Suprimeix fila :
- El pas anterior us ha deixat amb una taula buida. , però no us preocupeu, les files "1" encara hi són. Per tornar-los a veure, simplement elimineu el filtre automàtic fent clic de nou al botó Filtre :
- La fórmula de la columna C torna a calcular per a les files restants, però ja no la necessites. Ara podeu suprimir la columna de l'ajudant amb seguretat:
Com a resultat, només queden les setmanes parells al nostre full de treball, les setmanes senars s'han anat!
Consell. Si us agradaria moure totsuna altra fila a un altre lloc en lloc d'eliminar-les del tot, primer copieu les files filtrades i enganxeu-les a una ubicació nova i, a continuació, suprimiu les files filtrades.
Com esborrar files alternatives a Excel amb VBA
Si no esteu disposat a perdre el temps en una tasca trivial, com ara suprimir totes les altres files dels vostres fulls de treball Excel, la macro VBA següent us pot automatitzar el procés:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Seleccioneu l'interval" , SourceRange.Address, Tipus :=8) Si SourceRange.Rows.Count >= 2 Aleshores Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = Fals per a RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) a 1 Pas -2 Establiu FirstCell = SourceRange.Cells (RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End SubCom esborrar totes les altres files a Excel mitjançant la macro
I ninseriu la macro al vostre full de treball de la manera habitual mitjançant l'Editor de Visual Basic:
- Premeu Alt + F11 per obrir la finestra de Visual Basic per a aplicacions.
- A la barra de menú superior, feu clic a Insereix > Mòdul i enganxeu la macro anterior al Mòdul
- Premeu la tecla F5 per executar la macro.
- Apareixerà un diàleg i us demanarà que seleccioneu un interval. Seleccioneu la vostra taula i feu clicD'acord:
Fet! S'eliminen totes les altres files de l'interval seleccionat:
Com esborrar cada fila N a Excel
Per a aquesta tasca, ampliarem el filtratge tècnica que hem utilitzat per eliminar totes les altres files. La diferència està en la fórmula en què es basa el filtratge:
MOD(ROW()- m, n)On:
- m és el número de fila de la primera cel·la amb dades menys 1
- n és la fila enèsima que voleu suprimir
Suposem que les vostres dades comencen a la fila 2 i voleu suprimir cada tercera fila. Per tant, a la vostra fórmula n és igual a 3, i m és igual a 1 (fila 2 menys 1):
=MOD(ROW() - 1, 3)
Si les nostres dades van començar a fila 3, aleshores m seria igual a 2 (fila 3 menys 1), i així successivament. Aquesta correcció és necessària per numerar seqüencialment les files, començant pel número 1.
El que fa la fórmula és dividir un número de fila relatiu per 3 i retornar la resta després de la divisió. En el nostre cas, dóna zero per cada tercera fila perquè cada tercer nombre es divideix per 3 sense resta (3,6,9, etc.):
I ara, tu seguiu els passos ja coneguts per filtrar les files "0":
- Seleccioneu qualsevol cel·la de la vostra taula i feu clic al botó Filtra a Dades
- Filtreu la columna Helper per mostrar només els valors "0".
- Seleccioneu totes les files "0" visibles, feu clic amb el botó dret i trieu Suprimeix la fila al menú contextual.
- Traieu el filtre isuprimiu la columna Helper.
De manera similar, podeu suprimir cada 4a, 5a o qualsevol altra fila enèsima d'Excel.
Consell. En cas que hàgiu d'eliminar files amb dades irrellevants, us serà útil el següent tutorial: Com suprimir files segons el valor de la cel·la.
Gràcies per llegir-vos i espero tornar-vos a veure al nostre bloc la setmana que ve. .
