Di seguito vedremo un programma in Excel VBA che elimina le celle vuote.

Situazione:

Delete Blank Cells in Excel VBA

  1. In primo luogo, si dichiara due variabili di tipo Integer. Uno di nome contatore e uno chiamato i. Inizializziamo il contatore variabile con valore 0.

Dim counter As Integer, i As Integer

counter = 0

  1. Successivamente, verificare per ogni cella se è vuota o non (<> strumenti non uguale a). Stiamo usando un ciclo per questo. Se non vuoto, si scrive il valore di colonna B. Il contatore tiene traccia del numero di cellule che sono state copiate colonna B. Ogni volta si copia un valore alla colonna B, abbiamo incremento del contatore di 1. Questo pezzo di programma appare come segue:

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

Risultato finora:

Write non Empty Cells to next Column

  1. Infine, svuotare Range ( “A1: A10”), copiare i valori della colonna B alla colonna A, e svuotare Range ( “B1: B10”).

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

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

Range("B1:B10") = ""

Risultato:

Delete Blank Cells Result