Excel VBA将公式从第一个空行复制到数据末尾

你能帮我用宏解决这个问题吗？ A列中有数据，但填充单元格的数量每周都在变化。 B列中有数据，但填充单元格的数量始终小于A列，并且单元格的数量也在变化。 我需要一个代码： 1查找B列的第一个空单元格； 2向该单元格添加公式； 3将公式复制到A列的最后一行

例如： A列从A1填充到A100。B列从B1填充至B50。宏应找到单元格B51，添加公式并将公式复制到B100

---

非常感谢

如果您喜欢使用宏，则可能是

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

---

为什么不一直将公式保存在单元格中，添加一个IF语句，当数据不在该行中时不显示任何内容呢？感谢Yasserkalil，它一开始很棒，但运行时出错了。我的公式是简单的=今天，顺便说一句，不客气。我在样本数据上试过了，效果很好