用定位的方法，选中A列，按CTRL+G，调出“定位”对话框，按对话框左下角“定位条件”，选中“空值”，确定；
然后在编辑栏输入公式：
=A1
最后按CTRL+回车，就完成了。
然后在编辑栏输入公式：
=A1
最后按CTRL+回车，就完成了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-12-03
首先选中A列的单元格，然后CTRL+G——定位条件-空值，然后直接输入=A1，然后CERL+ENTER，完工，我经常用
第2个回答 2015-12-03
=if(isblank(A2),A1,A2),把A1单元格复制到D1单元格，然后从D2开始输入公式，下拉即可
第3个回答 2015-12-03
打开 开发工具 ， VB，在VB窗口 点插入 模块
把这下面代码复制进去 后 执行代码（快捷菜单上的绿色 三角）
Sub 向下填充空白()
Dim arr
arr = Range("A1").CurrentRegion.Value
For i = 1 To UBound(arr)
If IsEmpty(arr(i, 1)) Then arr(i, 1) = arr(i - 1, 1)
Next i
Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
采纳我号本回答被网友采纳
把这下面代码复制进去 后 执行代码（快捷菜单上的绿色 三角）
Sub 向下填充空白()
Dim arr
arr = Range("A1").CurrentRegion.Value
For i = 1 To UBound(arr)
If IsEmpty(arr(i, 1)) Then arr(i, 1) = arr(i - 1, 1)
Next i
Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
采纳我号本回答被网友采纳
相似回答