Excel VBA动态定位目标列 实现公式Autofill填充至最后数据行

需要实现：定位到表头为Group的列，在列内第一个数据行写入公式后，自动将公式填充到全列最后一个数据行，不能硬编码固定列范围，要适配Group列出现在任意位置的场景。
原有代码如下：

lr = Cells.Find("*", Cells(1,1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Dim header as range
Set header = range("A1:AA1")

' The Group column has empty cells. It just has header as Group.
' 定位Group列表头，在表头下第一个单元格写入公式，这部分逻辑正常
header.Find("Group").Offset(1,0).FormulaR1C1 = "=left(rc[-1],4)"

' 现有填充逻辑硬编码了B列范围
header.Find("Group").Offset(1,0).Autofill Range ("B2:B" & lr)

原有代码的问题是填充范围硬编码了B列，当Group列位置变化时代码会失效。

核心逻辑是把Find方法定位到的Group表头单元格存为独立变量，基于这个单元格的位置动态构造填充范围，不需要写死列标。修改后的完整代码如下：

' 获取全表最后一行行号
Dim lr As Long
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

Dim header As Range
Set header = Range("A1:AA1")

' 定位Group列表头，存为变量避免重复查找
Dim groupHeader As Range
Set groupHeader = header.Find("Group", LookIn:=xlValues, LookAt:=xlWhole)

' 增加容错，避免找不到表头时代码抛出运行错误
If Not groupHeader Is Nothing Then
    ' 定义公式起始单元格（表头下第一行）
    Dim formulaStart As Range
    Set formulaStart = groupHeader.Offset(1, 0)
    
    ' 写入初始公式
    formulaStart.FormulaR1C1 = "=LEFT(RC[-1],4)"
    
    ' 动态构造填充范围：从起始单元格到同列第lr行，无需硬编码列标识
    formulaStart.AutoFill Destination:=Range(formulaStart, Cells(lr, groupHeader.Column))
Else
    MsgBox "未找到Group列表头，请检查表头配置"
End If

关键说明 #

• 不要重复调用header.Find("Group")，一次查找后把结果存为对象变量，既提升运行效率，也避免多次查找参数不一致导致的匹配错误
• 用groupHeader.Column获取Group列的列序号，不需要手动转换列字母，不管Group列在哪个位置都能正确识别
• 填充范围直接通过起始单元格+同列最后一行单元格动态生成，完全适配列位置变化的场景
• 增加了表头不存在的容错判断，避免代码运行时直接崩溃

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