將循環計數器的值分配給單元格

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