Excel宏在列B中查找最后一行，选择另一个单元格A1，将公式从A1拖到B中的最后一行

Question

我正在尝试在Excel中执行自动填充，我可以在其中创建宏：

1. 查找B列数据的最后一行（假设这是B40），并记住。
2. 选择A1。
3. 将A1的公式拖到步骤1中找到的行（可能是A40），以便执行自动填充公式。

我在VBA很吵，所以非常感谢一些帮助。

Answer 1

这应该做你需要的。

' Get last row with data in column B...
Dim intLastRow As Long
intLastRow = Cells(Rows.Count, "B").End(xlUp).Row

' Fill column A down to this row... 
Range("A1:A" & intLastRow).FillDown

Answer 2

在这种情况下，您甚至不需要Range.FillDown或Range.AutoFill方法。

With ActiveSheet
    .Cells(1, 1).Resize(.Cells(Rows.Count, 2).End(xlUp).Row, 1) = .Cells(1, 1).Formula
End With

从左上角的单元格开始，然后使用Range.Resize property将其展开到所需的尺寸并传输公式。