VBA自动执行Excel工作表中的下拉列表导航

Question

我正在尝试在Excel工作表中创建一个下拉框，选中后将导航到页面上的特定行。到目前为止，我已经得到了下面的工作正常。但事实上，我可能有一个长达数千行的工作表，我显然不想在我的脚本上写“Case Is = 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