Comment supprimer chaque troisième rangée dans une feuille de calcul Excel

Microsoft Excel est un tableur avec des fonctionnalités avancées pour la manipulation, le tri et la cartographie des données numériques. Excel dispose de nombreuses fonctionnalités et fonctions disponibles qui effectuent diverses actions que l'utilisateur peut avoir besoin. Lorsque la fonctionnalité intégrée ne parvient pas à répondre aux besoins de l'utilisateur, le langage de programmation inclus, Visual Basic pour Applications (VBA), peut être utilisé à la place. VBA est un langage de programmation robuste disponible pour les opérations qui sont exécutées à l'intérieur de la feuille de calcul. Une opération telle que la suppression de lignes en fonction des besoins personnalisés est un ajustement parfait pour VBA.


Sommaire

  • Instructions
  • Conseils & avertissements
  • Choses que vous devez

    • Microsoft Excel

    Instructions

    1. 1

      Ouvrez la feuille de calcul Microsoft Excel à partir de laquelle vous souhaitez supprimer tous les troisième rangée.

    2. 2

      Ajouter des données à douze premières lignes de la feuille de calcul dans la colonne "A."

    3. 3


      Ouvrez le menu pour les macros en appuyant sur la "Alt" et "F8" touches.

    4. 4

      Entrer "Deletethree" dans la zone Nom de la macro et cliquez sur le bouton marqué "Créer."

    5. 5



      Collez le code suivant ci-dessous le texte "Sous Deletethree":

      «variables Dim.

      Y = 1
      I = 1

      Réglez xRng = Sélection

      «Boucle pour chaque ligne de la sélection

       Pour Xcounter = 1 Pour xRng.Rows.Count

      Si Y = 3 Ensuite,

      '... Supprimer une ligne entière de cellules.
      xRng.Cells (I) .EntireRow.Delete
      Y = 1
      «Sinon ...
      Autre
      «... Je incrémenter par un pour faire défiler gamme.
      I = i + 1
      Y = Y + 1
      End If

      Suivant Xcounter

    6. 6

      Enregistrez la macro "Deletethree" en appuyant sur la "Ctrl" et "S" touches. Ferme la fenêtre "Microsoft Visual Basic" à revenir à l'application Excel.

    7. 7


      Faits saillants en cellules A1 à A12 dans le tableur.

    8. 8

      Appuyez sur la "Alt" et "F8" clés pour ouvrir le menu macro. Sélectionnez la macro "Deletethree" et à gauche; cliquez sur le "Course" bouton. A la fin de la macro, chaque troisième rangée est retirée.

    Conseils & Avertissements

    • Modifiez le nombre dans la ligne de code "Si Y = 3 Ensuite," pour supprimer des lignes à un intervalle différent.
    • Ne pas mettre en évidence la colonne entière - cela va provoquer la macro à exécuter indéfiniment.
    » » » » Comment supprimer chaque troisième rangée dans une feuille de calcul Excel