Excel VBA遍历命名范围

Question

I am trying to loop through a named range in Excel and set its value equal to another named range that is dynamic in value (called SensitivityResults ). How do I get Excel to essentially say:

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

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

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

etc...

My code as follows does not work:

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