如何用最后一个非空白单元格填充空白单元格?
例如,我有这个两栏表格:
A
abc
dce
fds
B
kjh
abc
Run Code Online (Sandbox Code Playgroud)
我想要的是:
A
A abc
A dce
A fds
B
B kjh
B abc
Run Code Online (Sandbox Code Playgroud)
我尝试了像“=IF(ISBLANK(A2), A1, A2)”这样的公式,但它警告我关于冗余并且不起作用。
选择该列,转到编辑 > 转到 > 特殊 > 空白,在公式栏中键入 =,按向上箭头,然后按 Ctrl+Enter。你现在应该用上面的值填充单元格
选择要填充空白单元格的范围,

然后点击Developer Tab -> Visual Basic -> Insert -> Module
然后将代码粘贴到模块中,然后单击运行:

代码:
Sub Fill_Blank_Cells()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub
Run Code Online (Sandbox Code Playgroud)
正如@Jerry 正确指出的那样,确保复制粘贴特殊值以删除填充列后面的公式。这将防止以后出现任何不良结果!
| 归档时间: |
|
| 查看次数: |
6598 次 |
| 最近记录: |