Excel VBA使用AutoFill时反复触发1004运行时错误如何解决

• 最直接的触发原因是VBA运算符优先级问题：字符串连接符&的运算优先级低于算术减号-，你代码里写的"A" & lastrow2 - 1不会按预期拼接出类似A115的合法地址，VBA会先尝试把"A" & lastrow2生成的字符串（比如A116）转成数值参与减法，最终拼出带有非法行号的地址（比如行号为负数、非数字行号），直接导致全局Range方法调用失败，抛出1004错误。
• 其次是代码存在隐性隐患：你直接调用无主的全局Range对象，没有明确绑定到具体工作表，一旦代码运行时激活的不是目标操作表，会直接触发跨表调用错误；宏录制生成的硬编码代码能运行，只是因为录制时刚好停在目标工作表、地址是固定合法字符串，属于巧合。
• 额外的逻辑问题：AutoFill方法本身有强制要求——传入的Destination目标区域必须完整包含带填充规则的源单元格区域，且源区域必须位于目标区域的起始位置，否则即使地址合法也会触发方法调用错误。

• 所有拼接单元格地址的算术运算部分，必须用括号包裹，强制VBA先计算数值再拼接字符串，从根源上避免非法地址。
• 明确指定Range所属的工作表，抛弃宏录制生成的冗余Select/Selection逻辑，直接操作Range对象，既提升运行速度，也避免激活对象不符导致的报错。
• 明确定义源填充区域和目标填充区域，保证目标区域完整覆盖源区域。

可直接参考的修复后代码：

' 绑定到实际要操作的工作表，替换成你自己的表名即可
Dim opWs As Worksheet
Set opWs = ThisWorkbook.Sheets("替换为你的工作表名称")

' 定义源区域、目标区域，所有算术运算加括号明确优先级
Dim fillSource As Range, fillDest As Range
' 源区域为填充规则所在的起始单元格，按你的参数对应A115
Set fillSource = opWs.Range("A" & (lastrow2 - 1))
' 目标区域从源单元格起始，到lastrow4行结束，完整包含源区域
Set fillDest = opWs.Range("A" & (lastrow2 - 1) & ":A" & lastrow4)

' 直接执行自动填充，不需要选中单元格
fillSource.AutoFill Destination:=fillDest, Type:=xlFillDefault

如果需要严格按递增序列填充，可以把最后一行的Type参数改为xlFillSeries，填充逻辑会更稳定。

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