首先,本篇将使用以下代码,介绍各种程序结构,大家可以先看一下。
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单元格区域,依次判断每一个单元格是否为空,如果是空,则用上一个单元格的值填充。