Comment supprimer les cellules vides avec Excel VBA

Ci-dessous, nous examinerons un programme dans Excel VBA qui supprime les cellules vides.

1. Tout d’abord, nous déclarons deux variables de type Integer. Un compteur nommé et un nommé i. Nous initialisons le compteur de variables avec la valeur 0.

Dim compteur As Integer, i As Integer

compteur = 0

2. Ensuite, nous vérifions pour chaque cellule si elle est vide ou non (<> signifie différent de). Nous utilisons une boucle pour cela. S’il n’est pas vide, nous écrivons la valeur dans la colonne B. Le compteur conserve la trace du nombre de cellules qui ont été copiées dans la colonne B. Chaque fois que nous copions une valeur dans la colonne B, nous incrémentons le compteur de 1. Cette partie du programme ressemble à ceci:

For i = 1 To 10

    If Cells(i, 1).Value <> "" Then

        Cells(compteur + 1, 2).Value = Cells(i, 1).Value

        compteur = compteur + 1

    End If

Next i

Résultat à ce jour:

3. Enfin, nous vidons Range (“A1: A10”), copions les valeurs de la colonne B dans la colonne A et vides

Range ("B1: B10").

Range ("A1: A10"). Value = ""

Range ("A1: A10"). Value = Range ("B1: B10").Value

Range de valeurs ("B1: B10") = ""

Résultat:

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x