Ouvrez l'Excel Visual Basic Editor. Avec votre feuille de calcul ouverte dans Excel, cliquez sur "Outils" dans le menu situé en haut de votre écran, puis sélectionnez "Macro" et "Visual Editor Basic." Si vous utilisez Excel 2003 ou plus, passez à l'étape suivante.
Excel 2007 utilisateurs remarqueront que la commande précédente ne existe pas dans la version actuelle d'Excel, et qu'aucun des outils d'édition macro apparaîtra par défaut. Tournez sur l'accès à ces outils en cliquant sur le bouton Office dans le coin supérieur gauche de votre écran, puis en cliquant sur la "Options Excel" bouton au bas du menu. Repérez la rubrique intitulée "Meilleures options pour travailler avec Excel" dans la boîte de dialogue qui apparaît, puis cochez la case à côté de la "Afficher l'onglet Développeur dans le ruban" étiquette. Cliquez "D'ACCORD." Sélectionnez l'onglet Développeur, puis cliquez sur le "Visual Basic" bouton.
Ajouter le code de macro. Cliquez "Insérer" dans le menu situé en haut de la fenêtre de l'éditeur Microsoft Visual Basic et choisissez "Module." Copiez tout le code indiqué ci-dessous, puis collez-le dans ce module:
Sous Delete_Every_Other_Row ()
'Dimension variables.
Y = False 'Changer à True si vous voulez
'Supprimer des lignes 1, 3, 5, et ainsi de suite.
I = 1
Réglez xRng = Sélection
«Boucle une fois pour chaque ligne de la sélection.
Pour Xcounter = 1 Pour xRng.Rows.Count
«Si Y est vrai, alors ...
Si Y = True Then
'... Supprimer une ligne entière de cellules.
xRng.Cells (I) .EntireRow.Delete
«Sinon ...
Autre
«... Je incrémenter par un afin que nous puissions défiler gamme.
I = i + 1
End If
«Si Y est vrai, faire FALSE- si Y est False, la rendre vraie.
Y = Non Y
Suivant Xcounter
End Sub
Exécutez la macro. Retournez à votre feuille de calcul sans fermer l'éditeur Visual Basic. Mettez en surbrillance les lignes pour lesquelles alternatif rangée doit être retiré. Dans Excel 2003 et les versions antérieures, cliquez sur le "Outils" option de menu, puis sélectionnez "Macro", Suivie par la "Macros" option. Dans Excel 2007, sélectionnez l'onglet Développeur, puis cliquez sur "Macros." Pour exécuter la macro en soit la version, sélectionnez la macro marqué "Delete_Every_Other_Row", Puis cliquez sur "Exécutez." Chaque ligne de numéro pair de votre feuille de calcul supprime.