将单元格向下填充到相邻列最后一个单元格不是来自顶行

Question

我正在尝试将公式填写到相邻列的底部单元格。具体将 A 列填充到 B 列中的底部行。我可以使用以下代码实现此目的：

LastRow = Range("B" & Rows.Count).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & lastRow)

问题是当文件更新时我需要动态的起点（向下填充）。文件第一次为运行时，上述代码有效，因为文件为空。但是第二次，A 列可能有第 100 行的数据，B 列可能有 200 行的数据。所以我不能让 FillDown 从 A2 开始。它需要从 A 列的第一个空单元格开始（在数据底部之前，A 列中永远不会有空单元格）。

如何使起点也动态化？

此代码：

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

当列中已有数据但我似乎无法将其与现有代码联系起来时，选择我正在寻找的"starting point"。

谢谢！

Answer 1

LastRowA = Range("A" & Rows.Count).End(xlUp).Row
LastRowB = Range("B" & Rows.Count).End(xlUp).Row

'Fill down (will auto-increment)
Range("A" & LastRowA).AutoFill Destination:=Range("A" & LastRowA & ":A" & LastRowB)

'EDIT: fill with same fixed value...
Range("A" & (LastRowA+1) & ":A" & LastRowB).Value = Range("A" & LastRowA).Value

Answer 2

如果你只想填下公式：

Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).FillDown

将单元格向下填充到相邻列最后一个单元格不是来自顶行

Fill Cell Down to Adjacent Columns last cell NOT from top row

vba

dynamic

formula

fill