VBA从第一个空行到数据结束复制公式

Posted 2021-04-14

你能帮我用宏来解决这个问题吗？ 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