vba - 如何在 Excel VBA 的 for 循环中调用数组中的命名范围？

Question

我创建了一个数组，其中包含命名范围。

这是我的代码:

Sub Macro()
    ' - - - - - - - - - - - - - - - - -
    Dim fruits As Variant
    fruits = Array("Apple", "Banana", "Coconut")

    For i = 1 To Length(fruits)

     Cells(5, i).Select
        ActiveCell.FormulaR1C1 = Range(fruits.Cells(i))(1)

    Next i
    End Sub

我想在 for 循环中从数组中调用这些命名范围。我怎样才能做到这一点？预先感谢您。

我想在第 5 行显示命名范围的值。

Answer 1

一维数组默认从零开始，而不是从一开始。

Sub Macro()
    Dim fruits As Variant

    fruits = Array("Apple", "Banana", "Coconut")

    For i = lbound(fruits) to ubound(fruits)
        Cells(5, i + 1) = Range(fruits(i))(1)
        'maybe this
        'Cells(5, i + 1) = Range(fruits(i)).cells(1, 2)
    Next i
End Sub