当前位置: 动力学知识库 > 问答 > 编程问答 >

excel - Array Inconsitency

问题描述:

I am having a lot of trouble with some array code here -

If I run this:

Sub ArrayRunner()

Dim PipeBArray() As Variant

Dim i As Integer

PipeBArray = ThisWorkbook.Sheets(1).Range("A1:A6").Value

MsgBox Str(UBound(PipeBArray)) & Str(LBound(PipeBArray))

For i = LBound(PipeBArray) To UBound(PipeBArray)

MsgBox PipeBArray(i)

Next i

MsgBox "Done!"

End Sub

Then I get error 9 - subscript out of range on the line in the for loop - and when I watch the variable 'i' it tells me the value of i is one... so this occurs on the first instance of the for loop.

Can anyone help me see what I am doing wrong here?

Thanks everyone.

Joe

网友答案:

When you set a range to an array like that, VBA automatically makes it a 2-dimensional array. So you need to reference it like this:

MsgBox PipeBArray(i, 1) 

rather than:

MsgBox PipeBArray(i)

I would recommend this link for more information.

网友答案:

also want to add that

Dim Temp As Variant
Dim Dict As New Dictionary

' fill dictionary here

Temp = Dict.Items

Creates a 1D array. I was just having the opposite to the trouble mentioned above.

regards, Joe

分享给朋友:
您可能感兴趣的文章:
随机阅读: