来自数据的 Excel VBA 数组

Question

我需要从 Excel 中的数据列表创建一个数组。数据的长度不同，所以我必须找到它的末尾然后创建数组。然后我需要循环遍历数组并使用每个值。我以前没有使用过 VBA，所以任何东西都会有帮助。这是我到目前为止所能得到的:

Sub Calc()
Dim endCell As String      
endCell = Range("B13").End(xlDown).Row    
endCell = "B13:B" + endCell    
Dim nums As Variant

nums = Range(endCell)

End Sub

Answer 1

你不必这样做。只需这样做:

Dim varValues() as Variant 

' ...

varValues = Range(endCell).Value

对于包含多个单元格的范围对象，value 属性将返回一组值。

如果您不知道该范围是否包含多个单元格，但无论如何您都希望拥有一组值，则可以编写一个函数来实现这一目标(感谢 brettdj 的启发):

Function GetValue(rng As Range) As Variant()
    Dim varResult() As Variant

    If rng.Cells.Count = 1 Then
        ReDim varResult(0 To 0) 'I prefer to be explicit about the base
        varResult(0) = rng.Value
    Else
        varResult = rng.Value
    End If

    GetValue = varResult
End Function