空白单元格里填入上面单元格的内容

李伟杰123

桥梁养护工程明细2022（养护）k.rar (226.16 KB, 下载次数: 20)

2023-2-22 10:57 上传

点击文件名下载附件

空白单元格里填入上面单元格的日期，怎么弄？
不要复制和下拉，内容多，太费劲

shiruiqiang

for 循环，如果空就等于（x-1，1）的值

太极拍天雄

没有仔细检查结果！！！

skiss

选择日期列数据区域，CTRL+G,定位条件，选择空值，输入=↑，然后ctrl+enter 同时按

zldccmx

[A2:A1080].SpecialCells(4).FormulaR1C1 = "=R[-1]C"

狂野的兔子

4楼的最快！！

tanglf188

1. Sub test6()
   
2.     With ActiveSheet
   
3.         If .Cells(2, 1) = "" Then Exit Sub
   
4.         last = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
   
5.         Columns("A:A").NumberFormatLocal = "yyyy.m"
   
6.         For i = 3 To last
   
7.             If .Cells(i, 1) = "" Then ActiveSheet.Cells(i, 1) = CStr(ActiveSheet.Cells(i - 1, 1))
   
8.         Next
   
9.     End With
   
10. End Sub
    

复制代码

李伟杰123

skiss 发表于 2023-2-22 13:19
选择日期列数据区域，CTRL+G,定位条件，选择空值，输入=↑，然后ctrl+enter 同时按

↑是个啥，不能用

skiss

李伟杰123 发表于 2023-2-22 14:39
↑是个啥，不能用

键盘上的方向键向上，意思就是等于上面的那个值。

ykcbf1100

参与一下。

数组速度也挺快的。