Excel 代码有效，但不填充指定的范围

代码正在工作，但在将vlookup复制到所有单元格（A1到A5）时停止。有人能帮忙吗？多谢各位

  Sheets("RAW DATA FILE").Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(IF(RC2=""customer account"",INDEX('FEED DATA'!C[3],match('RAW DATA FILE'!R[1]C2,'FEED DATA'!C[5],0)),""""),"""")"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A5"), Type:=xlFillDefault
    Range("A1:A5").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(IF(RC2=""customer account"",INDEX('FEED DATA'!C4,match('RAW DATA FILE'!R[1]C2,'FEED DATA'!C6,0)),""""),"""")"
    Range("A1").Select

---

尽可能避免使用

Select

。您还需要确定您的范围。这意味着您应该包括工作簿和工作表，否则您将使用任何活动的工作表，这可能不是您想要的工作表。这样做时，可以减少行数并使其更易于阅读。您可以重复其他行

With ThisWorkbook.Sheets("RAW DATA FILE")
    .Range("A1") = "=IFERROR(IF(RC2=""customer account"",INDEX('FEED DATA'!C[3],match('RAW DATA FILE'!R[1]C2,'FEED DATA'!C[5],0)),""""),"""")"
    .Range("A1").AutoFill .Range("A1:A5")
End With