VBA调用AutoFill方法报449、1004错误如何解决

两个报错分别对应代码里的两处硬伤：

• 449 参数不可选：VBA中如果要把一行代码拆成多行书写，行尾必须加 _（半角空格+下划线）作为续行符。你代码里Selection.AutoFill Destination:=Range("AJ2", Range("AJ2").End(xlDown)),后面直接换行，VBA会判定参数没有传全，直接抛参数缺失错误。
• 1004 Range类AutoFill方法失败：AutoFill方法的强制规则是源填充区域必须是目标填充区域的真子集。你代码里先选中了AJ2到末行的区域作为源，再传一模一样的范围作为Destination目标，源和目标完全重合，没有可扩展填充的空间，必然调用失败。另外你用End(xlDown)取范围逻辑也有问题：AJ列除了AJ2之外全是空值，End(xlDown)会直接跳到工作表最后一行（1048576行），根本不是你实际数据的行范围。

另外你代码里全程用Activate+Select+Selection的写法是VBA里的常见坏实践，稳定性极差，完全可以规避。 #

两种可用方案，都不需要任何Select/Activate操作：

方案1：正确调用AutoFill #

注意几个修正点：

• 行号变量用Long类型，避免数据行数超过Integer上限（32767）溢出
• 所有Range对象显式绑定父工作表，不依赖激活表取数
• 从A列底部往上取实际数据最后一行，避免空值导致的取数错误
• AutoFill源只设为写好公式的AJ2单个单元格，目标范围包含源单元格，满足方法调用规则

Dim rowcount As Long
Dim sht5 As Worksheet, sht6 As Worksheet, sht7 As Worksheet
Dim sourceCell As Range, fillTarget As Range

Set sht5 = Sheets("oldoutput")
Set sht6 = Sheets("newoutput")
Set sht7 = Sheets("rolls")

' 取sht6表A列实际数据最后一行
rowcount = sht6.Cells(sht6.Rows.Count, "A").End(xlUp).Row
Set sourceCell = sht6.Range("AJ2")
Set fillTarget = sht6.Range("AJ2:AJ" & rowcount)

' 写入起始单元格公式，明确指定查找范围为oldoutput表对应列，避免隐式引用错误
sourceCell.FormulaR1C1 = "=VLOOKUP(RC[-35],oldoutput!C:C, 1, FALSE)"
' 调用AutoFill，参数写在同一行不需要续行符
sourceCell.AutoFill Destination:=fillTarget, Type:=xlFillDefault

方案2：直接批量写入公式（更推荐） #

AutoFill本质是模拟GUI的下拉填充操作，VBA里直接给整个目标区域赋值公式，会自动适配R1C1相对引用，代码更短、执行更快，完全不会触发AutoFill相关报错：

Dim rowcount As Long
Dim sht5 As Worksheet, sht6 As Worksheet, sht7 As Worksheet
Dim fillTarget As Range

Set sht5 = Sheets("oldoutput")
Set sht6 = Sheets("newoutput")
Set sht7 = Sheets("rolls")

rowcount = sht6.Cells(sht6.Rows.Count, "A").End(xlUp).Row
Set fillTarget = sht6.Range("AJ2:AJ" & rowcount)

' 一次性给整列写公式，不需要AutoFill
fillTarget.FormulaR1C1 = "=VLOOKUP(RC[-35],oldoutput!C:C, 1, FALSE)"

你原VLOOKUP公式第二参数直接写表名oldoutput属于隐式引用，部分Excel版本/安全设置下会判定为无效引用，明确写成oldoutput!C:C（如果查找范围不是整列可以自己改对应区域，比如oldoutput!A:Z）兼容性更好。

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