Excel VBA -为variant变量分配了范围值的下标超出范围

Sub Example()
    Dim rng As Range
    Dim myArray() As Variant
    Dim i As Long
    
    ' 设置范围对象
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A5")
    
    ' 检查范围的有效性
    If rng.Rows.Count > 1 Then
        ' 范围是多行的情况
        ' 将范围值分配给数组
        myArray = rng.Value
        
        ' 输出数组元素
        For i = LBound(myArray, 1) To UBound(myArray, 1)
            Debug.Print myArray(i, 1)
        Next i
    Else
        ' 范围只有一行的情况
        ' 分配范围值给Variant变量
        myArray = rng.Value
        
        ' 输出Variant变量的值
        Debug.Print myArray
    End If
End Sub