loops - VBA 在 Excel 工作表中自动进行下拉列表导航

Question

我正在尝试在 Excel 工作表中创建一个下拉框，选择该下拉框后将导航到页面上的特定行。到目前为止，我已经得到了下面的东西，它工作正常。但问题是，我可能有一个长达数千行的工作表，我显然不想在我的脚本上写下“案例是 = 1000”等，因为这既冗长又乏味。'Case Is' 每次递增 1，范围每次递增 21。我知道我想要的是一个循环过程，但我只是不确定如何去做。

Sub Worksheet_Dropdown()
Select Case Range("B1").Value
    Case Is = 1
    Application.Goto Range("B3"), Scroll:=True

    Case Is = 2
    Application.Goto Range("B24"), Scroll:=True

    Case Is = 3
    Application.Goto Range("B45"), Scroll:=True

End Select
End Sub