VBA 從第一個空行復制公式到數據末尾

Question

你能幫我用宏解決這個問題嗎？ A列有數據，但填充單元格的數量每周都在變化。 B列有數據，但填充的單元格數量總是少於A列，並且單元格數量也在變化。 我需要一個代碼：1) 找到 B 列的第一個空單元格； 2) 向該單元格添加公式； 3) 將公式復制到 A 列的最后一行。

例如：A 列從 A1 填充到 A100。 B列從B1到B50填充。 宏將找到單元格 B51，添加公式並將公式復制到 B100。

非常感謝！

Answer 1

可能是（如果你喜歡使用宏）

Sub Test()
Dim lrA As Long
Dim lrB As Long

lrA = Cells(Rows.Count, 1).End(xlUp).Row
lrB = Cells(Rows.Count, 2).End(xlUp).Row + 1

Range("B" & lrB).Resize(lrA - lrB + 1).Formula = "=Today()"
End Sub