VBA去寫的話
'取得最後一列
LastRow = 最後一列
'Loop 第一列~最後一列
For i = 1 to LastRow
'如果 "第i列第1欄"為空的話
if Sheets(1).Cells(i,1).value = ""
'將 該欄位 按下ctrl+up的值 放入 該欄位
Sheets(1).Cells(i,1).value = Sheets(1).Cells(i,1).End(XlUp).value
End if
Next i
新手,請笑納~
如果要直接填入,就只能用vba來處理。
但如果要單純的生成。
可用如下公式處理
假設你的資料是從A2開始。
則在B欄位對應的地方先放上「=IF(A2="",B1,A2)」
然後再直接COPY下來就行了
舉例來說:如果你的資料在A1:A8儲存格,先將空白儲存格起來,如果作用儲存格是A7,再輸入=A6後,按CTR+ENTER鍵即可填入上方日期。