Question

我正在使用以下代码尝试在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声明为Long。您应该also avoid using the global Range提出异议（我认为这是针对Sheet1的，因此它应该是Sheet1.Cells或Sheet1.Range），除非这是用户界面你可能不应该使用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

使用单元格值作为行号和列号

2 个答案: