看样子这就是你要找的东西？

Sub checkAsString()

    Dim rng As Range
    Dim num1 As String, num2 As String

    num1 = "A1"
    num2 = "A2"
    strAddress = Trim(num1 & ":" & num2)

    Set rng = Range(strAddress)
    
End Sub

或者，如果您确实想使用编号区域，可能是因为您想使用整行或整列。在这种情况下，请参阅下面的内容：

Sub checkAsLong()

    Dim rng As Range, address As Range
    Dim str1 As String, str2 As String
    Dim num1 As Long, num2 As Long

    str1 = "A1"
    str2 = "A2"

    num1 = CLng(Range(str1).Value)
    num2 = CLng(Range(str2).Value)

    'assuming you want to select whole Rows...
    Set rng = Range(Rows(num1), Rows(num2))

    'assuming you want to select whole Columns...
    Set rng = Range(Columns(num1), Columns(num2))

End Sub