向vba中的数组添加值

Question

我在excel中有一个vba数组。这个数组是一个集合大小，它不需要是可变的。

对于我的生活，我不知道我在做什么错误尝试将值添加到数组。 因为它目前为我的代码是：

Dim count As Integer 
Dim name(１ to 361) As String 
Dim tmp As String 

Sub go() 

For count = 2 To 10 
    name(count) = cells(7,count) 
Next count 

End Sub 

我试着对这个变化的所有方式。 （7，count）.value，name（count）.value等等...等等...

但是我不断收到错误，告诉我我错过了或者有一个通用的语法错误。

在我甚至可以开始对阵列进行任何有用的操作之前，它在这个第一个障碍中真的很烦人。 这促使我找到一个无数组解决方案，但这将解决问题而不是实际解决问题。

Answer 1

你的第一个问题是，go是一个保留字。从Sub中选择另一个名称。同样适用于name。还有其他一些问题，请参见下面

' Dont use key words as procedure names 
Sub MySub() 
    ' Declare as procedure scope 
    ' unless there is a very good reason to use module scope 

    ' dont use key words as variable names 
    Dim cnt As Long ' Integer ' use Long by default 
    Dim nm(1 To 361) As String 
    Dim tmp As String 

    For cnt = 2 To 10 
     nm(cnt) = Cells(7, cnt) 
    Next cnt 
End Sub 

Answer 2

我建议使用一个动态数组赋值

Sub go() 
    Dim i as Long, N as Long 
    Dim names() as Variant 
    ' It will be initialized to names(1 to rows, 1 to columns) 

    N = 10 
    names = Range("RefToFirstCell").Resize(1,N).Value2 

    For i=1 to N 
     Debug.Print names(1,i) 
    Next i 

    'If you want to write back to the worksheet use `Range().Resize().Value2 = names`. 

End Sub