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屬性將其擴展到所需的尺寸並傳輸公式。