VBA:如何在公式中对命名范围的每个值进行索引？

Sub IndexValuesInNamedRange()
    Dim rng As Range
    Dim cell As Range
    
    ' 引用命名范围
    Set rng = Range("NamedRange")
    
    ' 循环遍历每个单元格并进行索引
    For Each cell In rng
        ' 在这里编写对每个值的索引操作
        Debug.Print cell.Value
    Next cell
End Sub

Sub SetFormulaInNamedRange()
    Dim rng As Range
    Dim cell As Range
    
    ' 引用命名范围
    Set rng = Range("NamedRange")
    
    ' 循环遍历每个单元格并设置公式
    For Each cell In rng
        ' 在这里编写设置公式的操作
        cell.Formula = "=A1+B1"
    Next cell
End Sub