Comment supprimer toutes les autres lignes ou toutes les lignes de la NT dans Excel

Ce didacticiel vous montre comment supprimer efficacement toutes les autres lignes, ou toute première ligne, dans Microsoft Excel. Nous couvrirons deux méthodes: le filtrage et le code VBA.

Il existe de nombreux scénarios où le retrait des lignes spécifiques est nécessaire. Par exemple, vous devrez peut-être conserver les données des semaines uniformes tout en transférant des données de semaine impair à une feuille séparée. Le cœur du processus consiste à sélectionner les lignes cibles, puis à les supprimer.

Méthodes:

• Suppression de toutes les autres lignes par filtrage
• Suppression de lignes alternatives avec VBA
• Suppression de toutes les lignes du Nième

Méthode 1: Suppression de toutes les autres lignes à l'aide du filtrage

Cette méthode utilise une colonne d'assistance et les capacités de filtrage d'Excel.

1. Colonne d'aide: ajoutez une nouvelle colonne à côté de vos données. Entrée =MOD(ROW(),2) dans la première cellule de cette colonne et faites-la glisser vers le bas. Cette formule renvoie 0 pour même les lignes et 1 pour les lignes impaises.

   

2. Filtrage: appliquez un filtre à la colonne d'assistance (données> tri et filtre> filtre). Sélectionnez 0 (pour supprimer même les lignes) ou 1 (pour supprimer les lignes impaises).

   

3. Suppression: sélectionnez les lignes visibles (celles qui correspondent à vos critères de filtre), cliquez avec le bouton droit et choisissez "Supprimer la ligne".

   

4. Suppression du filtre: éteignez le filtre (cliquez à nouveau sur le bouton Filtre). Supprimez la colonne d'assistance.

   

   Votre feuille de travail ne contient désormais que les lignes que vous vouliez garder.

   

Astuce: pour déplacer les lignes au lieu de les supprimer, copiez les lignes filtrées avant de les supprimer et collez-les dans un nouvel emplacement.

Méthode 2: Suppression de lignes alternatives avec VBA

Cette macro VBA automatise le processus:

 Sub delete_alternate_rows_excel ()
  DIM SourCerrange comme portée
  Définir SourceRange = Application.Selection
  Set sourcerange = application.inputbox ("plage:", "Sélectionnez la plage", SourceRange.address, Type: = 8)
  Si sourcerange.rows.count> = 2 alors
    Dim Firstcell comme portée
    Dim RowIndex comme entier
    Application.screenupdating = false
    Pour rowIndex = sourcerange.Rows.Count - (sourcERORD.ROWS.COUNT MOD 2) à 1 étape -2
      Définissez FirstCell = SourCerange.Cells (RowIndex, 1)
      Firstcell.entirerow.delete
    Suivant
    Application.screenupdating = true
  Terminer si
Sub-Sub

1. Ouvrez l'éditeur VBA (ALT F11).

2. Insérez un module (insérer> module).

3. Collez le code dans le module.

4. Exécutez la macro (F5).

5. Sélectionnez la plage de données lorsque vous y êtes invité.

   

   La macro supprimera toutes les autres lignes de la plage sélectionnée.

   

Méthode 3: Suppression de chaque ligne nème

Cela se développe sur la méthode de filtrage. Utilisez cette formule dans la colonne d'assistance:

=MOD(ROW() - *m*, *n*)

Où:

• m est le numéro de ligne de la première ligne de données moins 1.
• n est la nième ligne à supprimer.

Par exemple, pour supprimer chaque 3ème ligne à partir de la ligne 2, utilisez =MOD(ROW()-1,3) . Filtrez ensuite pour 0 et supprimez les lignes visibles.

Cela vous permet de supprimer efficacement n'importe quelle ligne de la nième. N'oubliez pas de régler m en fonction de votre ligne de départ.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!