Supprimer toutes les cellules avec des données de dates antérieures à l’aide de VBA
Dans cet article, nous allons créer une macro pour supprimer les données des dates précédentes. Cette macro vérifie les données, conserve les données du jour et supprime toutes les données des dates précédentes.
Les données brutes dans cet exemple se composent de la date, du nom de l’agent et des ventes de l’agent individuel à cette date particulière.
Pour exécuter la macro, cliquez sur le bouton de la feuille «principale» ou on peut même l’exécuter en appuyant sur les touches de raccourci Alt + F8.
La macro supprimera tous les enregistrements avec des dates précédentes. Lorsque nous exécutons cette macro le 14 décembre 2016, la sortie ne reflétera les enregistrements que pour cette date.
[_GoBack] # Explication de la logique Dans cet exemple, nous avons créé la macro «RemovePreviousData». Cette macro utilise une boucle FOR inversée, ce qui signifie que la boucle s’exécute dans la direction opposée. La boucle commence à partir de la dernière rangée et se déplace vers la rangée supérieure.
La raison de l’utilisation du bouclage inversé est que si nous avions utilisé la boucle FOR normale, après chaque suppression de ligne, les enregistrements présents dans les données se seraient déplacés vers le haut, entraînant un changement de positionnement à chaque suppression de ligne. Donc, pour contrer cela, nous avons utilisé la boucle inverse.
Nous avons utilisé l’instruction Step avec la boucle FOR pour une boucle dans le sens inverse. La boucle FOR commence à partir de la dernière ligne et boucle vers la 11 ^ e ^ ligne.
Veuillez suivre ci-dessous pour le code
Option Explicit
Sub RemovePreviousData()
Dim Counter, LastRow As Integer
'Finding the row number of last row
LastRow = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row
'Looping from last row to 11th row
For Counter = LastRow To 11 Step -1
If Cells(Counter, 1).Value < Date Then
'Deleting the row
Rows(Counter).Delete
End If
Next Counter
End Sub
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]