使用單元格值作為行號和列號

Question

我正在使用以下代碼嘗試選擇MyRow和MyCol相交處的MyRow MyCol 。 當前值為MyRow ：6和MyCol ：4，應選擇D6 。

我無法獲得最后一行失敗的正確語法：

Sub SelectCS()
    Dim MyRow As Integer
    Dim MyCol As Integer
    MyRow = Sheet1.Range("a4").Value
    MyCol = Sheet1.Range("a5").Value
    Range((MyRow), (MyCol)).Select
End Sub

Answer 1

Range(Integer, Integer)不是有效的呼叫。 您應該改用Cells ：

Cells(MyRow, MyCol).Select

請注意，如果要使用MyRow和MyCol表示行和列， MyCol將它們聲明為Long 。 您還應該避免使用全局 Range對象（我假設這是用於Sheet1 ，所以應該是Sheet1.Cells或Sheet1.Range ），並且除非這是針對UI的，否則您可能不應該使用Select 。

Answer 2

Public Sub SelectCS()
    Dim MyRow As Integer
    Dim MyCol As Integer
    MyRow = Range("A1").Value
    MyCol = Range("B1").Value
   Cells(MyRow, MyCol).Select
End Sub