使用VBA进行空单元格填充上面内容

2022年4月25日 作者： 来源：

首先，本篇将使用以下代码，介绍各种程序结构，大家可以先看一下。

Sub MyCode()

Dim i As Integer

Dim isBlank As Boolean    '声明循环变量和是否为空变量

For i = 2 To 100   '循环 A2-A100 单元格

  isBlank = Cells(i, 1).Value = ''  '存储单元格是否为空的结果

  If  isBlank 

      Then Cells(i, 1) = Cells(i - 1, 1)   '如果为空，则用上方的单元格的值填充当前单元格

  End If

Next i

End Sub

以上代码运行后，在 A2:A100单元格区域，依次判断每一个单元格是否为空，如果是空，则用上一个单元格的值填充。