下面我们就来看看在Excel VBA一个程序，删除空白单元格。

现状：

Delete Blank Cells in Excel VBA

1.首先，我们声明整数类型的两个变量。一位叫计数器和一个叫我。我们初始化值0的变量计数器

Dim counter As Integer, i As Integer

counter = 0

2.接下来，我们检查每个小区是否它是空的或不是（<>手段不等于）。我们正在使用这种循环。如果不为空，我们的值写入到B列，计数器保持跟踪已经被复制到B列的每一个我们值复制到B列时间单元的数量，我们以1递增计数器这块方案如下所示：

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

到目前为止结果：

Write non Empty Cells to next Column

3.最后，我们清空范围（ “A1：A10”），柱B的值复制到塔A中，并清空范围（ “B1：B10”）。

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

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

Range("B1:B10") = ""

结果：

Delete Blank Cells Result