如何动态向上填充Excel公式（无需指定固定范围）

可以通过VBA代码读取左侧列的已填充范围，自动确定填充目标行，无需固定单元格地址。具体实现如下：

核心逻辑 #

以当前活动单元格（AD24）的左侧列为参照，定位该列最后一个非空单元格的行号，以此作为填充起始行，结合当前单元格行号动态生成填充范围，彻底摆脱固定地址限制。

代码实现 #

替换原有固定范围的填充代码，使用以下动态适配的逻辑：

Dim leftCol As Integer
Dim lastRow As Long
Dim fillRange As Range

' 获取当前单元格的左侧列号
leftCol = ActiveCell.Column - 1
' 找到左侧列最后一个非空单元格的行号
lastRow = Cells(Rows.Count, leftCol).End(xlUp).Row
' 定义动态填充范围：从左侧列对应行的当前列，到当前活动单元格
Set fillRange = Range(Cells(lastRow, ActiveCell.Column), ActiveCell)

' 执行自动填充
ActiveCell.AutoFill Destination:=fillRange, Type:=xlFillDefault

灵活调整说明 #

如果公式依赖的是更左侧的列（比如你公式里的RC[-3]对应的AA列），只需把leftCol = ActiveCell.Column - 1改成leftCol = ActiveCell.Column - 3，确保参照列是实际有数据的列即可。后续文件扩展行时，代码会自动识别左侧列最新的非空行，无需手动修改范围。

内容的提问来源于stack exchange，提问作者ZelelB