String 数组中字符串的存储范围（vba）

目标是创建一个包含声明范围内的项的数组。很简单，但我不能让它工作

'Declaration
Dim Measures As Variant
Dim MeasureRows As Long

'Search and store
Sheets(4).Activate
MeasureRows = Range("A" & Rows.Count).End(xlUp).row
Measures = Range(Cells(2, 1), Cells(MeasureRows, 1)).Value2 

MeasureRows填充得很好，但当我检查Measures时，它是空的。e、 g

?MeasureRows
 780 
?Measures(MeasureRows) 'Returns "Subscript out of range"    
?Measures(1) 'Returns "Subscript out of range"

---

我对VBA很生疏，所以请原谅这个基本问题。我试着在网上搜索答案，但什么都找不到。我想我只是不知道搜索词的正确术语。

从表格中读取时，它是二维的

Option Explicit
Public Sub test()
    Dim Measures As Variant
    Dim MeasureRows As Long

    With Worksheets("Sheet4")
        MeasureRows = .Cells(.Rows.Count, "A").End(xlUp).Row
        Measures = .Range(.Cells(2, 1), .Cells(MeasureRows, 1)).Value2
    End With

    Dim i As Long
    For i = LBound(Measures, 1) To UBound(Measures, 1)
        Debug.Print Measures(i, 1)
    Next
    Stop

End Sub

---

您可能还需要MeasureRows-1Great。非常感谢。我看到你有它的s/t它在填充后打印每一项度量。有没有办法在类似于Matlab工作区或R环境的地方查看我的数组？当数组在STOP命令处停止时，可以在“局部变量”窗口中检查它。您希望稍后删除该命令。