VBA代码未执行AutoFill却自动向下填充公式求助

我把旧Excel文件里正常运行的VBA代码复制到新文件，仅修改引用适配后出现异常：执行ActiveCell.FormulaR1C1给单元格设公式时，还没运行到后续的AutoFill代码，公式就自动向下填充了，用F8分步调试能复现这个问题。

相关代码片段：

Dim LastRow As Long
    
Sheets("All").Select
    
Range("A3:DB50000").ClearContents
    
Application.Goto Reference:="Ref_EPG" '定位并选中Ref_EPG区域

If Not IsEmpty(ActiveCell.Value) Then

    Selection.Copy '复制Ref_EPG区域

    Sheets("All").Select '切换到"All"工作表

    Range("A3").Select '选中A3单元格
    
    ActiveSheet.Paste '粘贴数据到对应行

    Range("B3").Select '选中B3单元格
    
    Application.CutCopyMode = False '清除剪贴板
    
    ActiveCell.FormulaR1C1 = _
        "=IF(LEN(VLOOKUP(RC1,Table_Budget_EPG,EPG!R1C,FALSE))=0,"""",VLOOKUP(RC1,Table_Budget_EPG,EPG!R1C,FALSE))" '设置VLOOKUP公式，源单元格为空时返回空白而非0
    
    LastRow = Sheets("All").Range("A" & Rows.Count).End(xlUp).Row '获取A列最后一行行号
    
    If LastRow > 1 Then
    
        Sheets("All").Range("B3").AutoFill Destination:=Sheets("All").Range("B3:B" & LastRow) '自动填充公式到最后一行
    
    End If

End If

触发异常的代码行：

ActiveCell.FormulaR1C1 = _
"=IF(LEN(VLOOKUP(RC1,Table_Budget_EPG,EPG!R1C,FALSE))=0,"""",VLOOKUP(RC1,Table_Budget_EPG,EPG!R1C,FALSE))"

原文件中这行代码只完成公式插入，新文件里却自动向下填充，求排查原因。

• Excel自动填充选项差异：新文件可能开启了「扩展数据区域格式及公式」功能。检查路径：文件→选项→高级→编辑选项，看是否勾选了该选项。旧文件未开启时，设置单个单元格公式不会触发自动填充；新文件开启后，当B3旁的A列有连续数据，Excel会自动把公式向下填充到对应行，跳过你代码里的AutoFill步骤。

• 表格（ListObject）自动扩展：如果新文件中"A3"起始的区域被识别为Excel表格（而非普通单元格区域），表格默认会自动将公式扩展到整列。右键A3单元格，查看是否有「表格」相关操作选项，或用Sheets("All").ListObjects.Count检查工作表内的表格数量，确认是否存在自动扩展的表格对象。

• 命名引用定义不一致：新文件中的Ref_EPG或Table_Budget_EPG命名范围可能与旧文件不同，导致粘贴数据后Excel识别出数据区域的范围变化，触发自动填充机制。通过「公式→名称管理器」检查命名范围的引用地址和定义是否与原文件一致。

• 优化代码避免依赖选择操作：你的代码大量使用Select和ActiveCell，这类写法容易受Excel当前状态干扰。改成直接操作单元格对象的写法，能减少异常触发：

  Dim wsAll As Worksheet
  Set wsAll = Sheets("All")
  Dim rngRefEPG As Range
  Set rngRefEPG = Range("Ref_EPG")
  
  wsAll.Range("A3:DB50000").ClearContents
  
  If Not IsEmpty(rngRefEPG.Cells(1).Value) Then
      '直接复制粘贴，跳过选择操作
      rngRefEPG.Copy Destination:=wsAll.Range("A3")
      '直接设置B3公式
      wsAll.Range("B3").FormulaR1C1 = "=IF(LEN(VLOOKUP(RC1,Table_Budget_EPG,EPG!R1C,FALSE))=0,"""",VLOOKUP(RC1,Table_Budget_EPG,EPG!R1C,FALSE))"
      '获取最后一行行号
      LastRow = wsAll.Range("A" & wsAll.Rows.Count).End(xlUp).Row
      '批量填充公式，效率更高
      If LastRow > 3 Then
          wsAll.Range("B3:B" & LastRow).FillDown
      End If
  End If
  

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