Excel宏-需要知道如何循环此操作

我试图找到一个相关的线程来循环这个宏，但是我很难找到一个相关的线程。我真正想做的就是将公式（已经写入列中的每个单元格）作为数组输入。这是我的宏，用于执行前三行，但我正在努力找到一种简单的方法来循环这三行，比如，前500行

Selection.FormulaArray = _
    "=IF(ISERROR(INDEX(Sheet3!R1C1:R7000C8,SMALL(IF(Sheet3!R1C1:R495C2=R4C3,ROW(Sheet3!R1C1:R495C2)),ROW(Website!R[-9])),1)),"""",INDEX(Sheet3!R1C1:R7000C8,SMALL(IF(Sheet3!R1C1:R495C2=R4C3,ROW(Sheet3!R1C1:R495C2)),ROW(Sheet3!R[-9])),1))"
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.FormulaArray = _
    "=IF(ISERROR(INDEX(Sheet3!R1C1:R7000C8,SMALL(IF(Sheet3!R1C1:R495C2=R11C3,ROW(Sheet3!R1C1:R495C2)),ROW(Website!R[-10])),1)),"""",INDEX(Sheet3!R1C1:R7000C8,SMALL(IF(Sheet3!R1C1:R495C2=R11C3,ROW(Sheet3!R1C1:R495C2)),ROW(Sheet3!R[-10])),1))"
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.FormulaArray = _
    "=IF(ISERROR(INDEX(Sheet3!R1C1:R7000C8,SMALL(IF(Sheet3!R1C1:R495C2=R12C3,ROW(Sheet3!R1C1:R495C2)),ROW(Website!R[-11])),1)),"""",INDEX(Sheet3!R1C1:R7000C8,SMALL(IF(Sheet3!R1C1:R495C2=R12C3,ROW(Sheet3!R1C1:R495C2)),ROW(Sheet3!R[-11])),1))"
ActiveCell.Offset(1, 0).Range("A1").Select

---

有人能帮我吗？我将非常感激

如果您在某个区域中已有正常公式，并且希望将其转换为数组公式，请选择单元格并运行以下操作：

Sub MakeArray()
    Dim r As Range
    For Each r In Selection
        If r.HasFormula Then
            r.FormulaArray = r.Formula
        End If
    Next r
End Sub

---

这太完美了！！非常感谢你。