将循环计数器的值分配给单元格

Question

我正在尝试在 Excel 中运行场景分析：

我在工作簿中有场景 1 到 XX，然后根据所选场景为字段分配值。

我正在尝试通过循环将变量 i 分配给单元格“ScenarioSwitch”。

Sub Sensitivity()

Dim i As Integer
Dim MaxScenario As Long

MaxScenario = ThisWorkbook.Sheets("Income").Range("E76", Range("E76").End(xlDown)).Count

For i = 1 To MaxScenario

    Range("ScenarioSwitch").Value = i

Next i

End Sub

Answer 1

您应该使用Long而不是Integer来声明 for 循环变量。 如果您需要从第 76 行开始遍历 E 列，那么您可以从第 76 行开始 for 循环。

Sub Sensitivity()

Dim i As Long
Dim MaxScenario As Long

MaxScenario = ThisWorkbook.Sheets("Income").Range("E" & Rows.Count).End(xlUp).Row

For i = 76 To MaxScenario

Range("A" & i).Value = i

Next i

End Sub