VBA基本操作（二）——空白单元格填充

        今天来一个听起来逻辑有点复杂，但代码很简单的一段代码。

        在Excel中，如果想用公式填充空白单元格，方法一般是：

        1、Ctrl+G，然后点击定位条件，选择“空值”

 

        2、然后在第一个空白单元格输入“=“然后选中上一个单元格

 

 3、最后同时按Ctrl+Enter，完成自动填充

        如果用VBA代码,也非常好实现，可以敲一下下面代码试试

sub 空白单元格填充()

Dim i As Integer  '声明变量
Dim isBlank As Boolean  '声明是否为空，布尔值只有真和假

For i = 2 To 12  '把i在第二行和第12行中间循环

    isBlank = Cells(i, 1).Value = ""  'isBlank=所在单元格的值=空

    If isBlank Then  '这里进行判断，如果isBlank是空
        Cells(i, 1) = Cells(i - 1, 1)   '那就等于上一单元格，实现填充
    End If

Next i

End Sub

完美~