下面我们将看一下Excel VBA中删除空白单元格的程序。
情况：
1.首先，我们声明两个Integer类型的变量。一个命名为计数器，一个命名为i。我们将变量计数器初始化为0。
昏暗计数器为 整数，i 为 整数
计数器= 0
计数器= 0
2.接下来，我们检查每个单元格是否为空（<>表示不等于）。我们为此使用了一个循环。如果不为空，则将值写入B列。计数器跟踪已复制到B列的单元格数量。每次将值复制到B列时，我们将计数器加1。看起来如下：
对于 i = 1 到 10，
如果 Cells（i，1）.Value <>“” 然后
Cells（counter + 1，2）.Value = Cells（i，1）.Value
counter = counter + 1
End 如果
下一个 i
如果 Cells（i，1）.Value <>“” 然后
Cells（counter + 1，2）.Value = Cells（i，1）.Value
counter = counter + 1
End 如果
下一个 i
到目前为止的结果：
3.最后，我们清空Range（“ A1：A10”），将B列的值复制到A列，然后清空Range（“ B1：B10”）。
Range（“ A1：A10”）。Value =“”
Range（“ A1：A10”）。Value = Range（“ B1：B10”）。Value
Range（“ B1：B10”）=“”
Range（“ A1：A10”）。Value = Range（“ B1：B10”）。Value
Range（“ B1：B10”）=“”
结果：
