如何查看数组中的项目

Question

我得到Subscript out of range的Debug.Print myarr(i).

Dim ws As Worksheet: Set ws = Sheets("Sheet1")
Dim myarr as Variant, i as Long
myarr = Array(ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row))

For i = LBound(myarr) To UBound(myarr)
    Debug.Print myarr(i)
Next i

我用(下面)验证了范围A2:A5

Msgbox ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)).Address (false, false)

---

我也试过换myarr到

 = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row) 
 = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).Value
 = Array(Temp.Range("A2:A" & Temp.Range("A" & Temp.Rows.Count).End(xlUp).Row).Value)

第一个给出Subscript out of range,第二个给出type mismatch

使用数组相当新,我不知道我在这里缺少什么.我是否错误地加载数组或尝试错误地查看数组中的项目？

Answer 1

myarr 是一个带有一列的二维数组.

您需要将引用添加到第二个维度.

Debug.Print myarr(i,1)

另外,要从范围加载数组,只需指定值:

myarr = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).Value

所以

Dim ws As Worksheet: Set ws = Sheets("Sheet1")
Dim myarr as Variant, i as Long
myarr = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).Value

For i = LBound(myarr,1) To UBound(myarr,1)
    Debug.Print myarr(i,1)
Next i