我有一些关于列的数据，我想使用 VBA 将其存储到数组中。存储后，我会引用数组中的元素并进行比较。
Dim tRange As Range
Set tRange = wb.Sheets("wbname").Range("A1:A5")
假设我想将 5 行的 column A 存储到 VBA 中的数组中。我可以知道路吗？
【问题讨论】：
这是一种方法：
Sub Dave()
Dim tRange As Range, wb As Workbook, cell As Range
Dim i As Long
Set wb = ThisWorkbook
Set tRange = wb.Sheets("wbname").Range("A1:A5")
ReDim arr(1 To tRange.Count)
i = 1
For Each cell In tRange
arr(i) = cell.Value
i = i + 1
Next cell
End Sub
注意：
这种技术不依赖于范围的“形状”。如果范围是一列的一部分，或者一行的一部分，或者一个矩形的单元格，甚至是一组不相交的单元格，它就会起作用。
【讨论】：
您可以只声明一个 Variant 数据类型并使其等于范围。
Dim DirArray As Variant
DirArray = Range("a1:a5").Value
@vacip 在上一个问题中恰好回答了完全相同的范围！ Creating an Array from a Range in VBA
【讨论】：
DirArray(i) 来引用数组中的第 i 个元素。要获取元素的数量，您可以使用UBound(DirArray)。我建议阅读我在 cmets 中针对您的问题发布的文章。这将使您更好地理解您的问题。
DirArray(1,1) 获得第一个元素，第二个通过DirArray(2,1) 等。否则，为了获得一个一维数组，您必须首先展平 数据编码Application.Transpose(Range("A1:A5").Value) 才能使用一个索引参数获得DirArray(1)。 - 旁注： 更好的做法是完全限定您的范围引用，例如使用ThisWorkbook.Worksheets("MySheetname").Range("A1:A5").Value。