Elimina celle vuote in VBA di Excel

Di seguito vedremo un programma in Excel VBA quello cancella le celle vuote.

Situazione:

1. In primo luogo, dichiariamo due variabili di tipo Integer. Uno chiamato contatore e uno chiamato i. Inizializziamo il contatore delle variabili con il valore 0.

Dim counter As Integer, i As Integer
counter = 0

2. Successivamente, controlliamo per ogni cella se è vuoto o meno (<> significa non uguale a). Stiamo usando un ciclo per questo. Se non vuoto, scriviamo il valore nella colonna B. Il contatore tiene traccia del numero di celle che sono state copiate nella colonna B. Ogni volta che copiamo un valore nella colonna B, incrementiamo il contatore di 1. Questo pezzo del programma sembra 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:

Scrivi celle non vuote alla colonna successiva

3. Infine, vuoto Range ("A1: A10"), copia i valori della colonna B nella colonna A e Empty Range ("B1: B10").

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

Risultato: