Excel VBA遍歷命名范圍

Question

我試圖遍歷Excel中的命名范圍，並將其值設置為等於另一個動態值的命名范圍（稱為SensitivityResults ）。 如何使Excel本質上說：

Range("Scenario1").Value = Range("SensitivityResults").Value

Range("Scenario2").Value = Range("SensitivityResults").Value

Range("Scenario2").Value = Range("SensitivityResults").Value

等等...

我的代碼如下不起作用：

Dim i As Integer
Dim s As Integer

For i = 1 To 20
  For s = 1 To 20 
    Range("Active_Scenaro") = s
    Calculate
    Range("Scenario(i)").Value = Range("SensitivityResults").Value
  Next s
Next i

Answer 1

您只需要將計數器i作為字符串附加到您的固定名稱Scenario ：

Range("Scenario" & i).Value = Range("SensitivityResults").Value