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

Situation:

Delete Blank Cells in Excel VBA

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

Dim counter As Integer, i As Integer

counter = 0

  1. Ensuite, nous vérifions pour chaque cellule si elle est vide ou non (<> signifie pas égal à). Nous utilisons une boucle pour cela. Sinon vide, nous écrivons la valeur à la colonne B. Le compteur détient une trace du nombre de cellules qui ont été copiées dans la colonne B. Chaque fois que nous copions une valeur à la colonne B, nous contre incrément de 1. Ce morceau du programme se présente comme suit:

For i = 1 To 10

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

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

counter = counter + 1

End If

Next i

Résultat à ce jour:

Write non Empty Cells to next Column

  1. Enfin, nous vidons Range ( « A1: A10 »), copier les valeurs de la colonne B à la colonne A, et videz Range ( « B1: B10 »).

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

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

Range("B1:B10") = ""

Résultat:

Delete Blank Cells Result