VBA实现从工作表中部开始多列动态向下填充公式的问题

核心错误修正 #

你之前的AutoFill代码编译失败，是因为Range对象的地址拼接语法错误——正确的地址拼接需要用&将字符串与变量完整连接，不能直接用:分隔变量和字符串。

正确的动态AutoFill代码 #

在你完成C列起始单元格的公式输入后，添加这段代码即可实现需求：

' 获取master表中数据的最后一行行号（以A列为基准）
Dim masterFinalRow As Long
masterFinalRow = Sheets("master").Cells(Rows.Count, "A").End(xlUp).Row

' 定义完整的填充目标区域：从C列lastrow行，到H列数据末尾行
Dim fillTarget As Range
Set fillTarget = Sheets("master").Range("C" & lastrow & ":H" & masterFinalRow)

' 执行自动填充
Sheets("master").Range("C" & lastrow).AutoFill Destination:=fillTarget, Type:=xlFillDefault

完整优化代码（移除冗余Select操作） #

原代码大量使用Select和Selection会降低运行效率且容易触发错误，建议改为直接操作对象的写法：

Sub AppendDataAndFillFormulas()
    Dim wsMaster As Worksheet
    Dim wsNewData As Worksheet
    Dim startRow As Long
    Dim newDataLastRow As Long
    Dim masterFinalRow As Long
    Dim fillRange As Range
    
    ' 绑定工作表对象，避免重复调用Sheets()
    Set wsMaster = ThisWorkbook.Sheets("master")
    Set wsNewData = ThisWorkbook.Sheets("new data")
    
    ' 获取master表首个空行的行号
    startRow = wsMaster.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    ' 获取new data表中数据的最后一行
    newDataLastRow = wsNewData.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 复制新数据到master表
    wsNewData.Range("A2:A" & newDataLastRow).Copy Destination:=wsMaster.Range("A" & startRow)
    
    ' 在C列起始行写入公式（替换为你的实际公式）
    wsMaster.Range("C" & startRow).FormulaR1C1 = "0"
    
    ' 获取复制数据后master表的最后一行行号
    masterFinalRow = wsMaster.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 先横向填充C到H列的同一行
    Set fillRange = wsMaster.Range("C" & startRow & ":H" & startRow)
    wsMaster.Range("C" & startRow).AutoFill Destination:=fillRange, Type:=xlFillDefault
    
    ' 再纵向填充到所有数据行的末尾
    Set fillRange = wsMaster.Range("C" & startRow & ":H" & masterFinalRow)
    wsMaster.Range("C" & startRow & ":H" & startRow).AutoFill Destination:=fillRange, Type:=xlFillDefault
End Sub

关键说明 #

1. 避免Select操作：直接通过工作表、Range对象操作数据，比依赖Select/Selection更稳定高效，也更易维护。
2. 动态区域拼接规则：Range地址必须是完整的字符串拼接，格式为"列名" & 行号 & ":列名" & 行号，不能出现语法断裂。
3. 分两步填充逻辑：先横向将公式从C列复制到H列的起始行，再纵向填充到所有数据行，确保每一列都能正确应用公式。

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