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

Question

我正在尝试在Excel中进行自动填充，然后在其中创建宏：

1. 在B列中找到包含数据的最后一行（假设这是B40 ），并记住。
2. 选择A1 。
3. 将A1的公式A40步骤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属性将其扩展到所需的尺寸并传输公式。