VBA遍历数据存入一维数组

在VBA中，可以使用循环语句和数组来遍历数据并将其存入一维数组中。以下是一个示例代码：

Sub TraverseDataToArray()
    ' 定义变量
    Dim dataRange As Range
    Dim dataArray() As Variant
    Dim i As Integer
    
    ' 设置数据范围
    Set dataRange = Range("A1:A10")
    
    ' 重置数组大小
    ReDim dataArray(dataRange.Cells.Count)
    
    ' 循环遍历数据
    For i = 0 To dataRange.Cells.Count - 1
        dataArray(i) = dataRange.Cells(i + 1).Value
    Next i
    
    ' 输出数组内容
    For i = 0 To UBound(dataArray)
        Debug.Print dataArray(i)
    Next i
End Sub

这个代码将数据范围设置为A1:A10，然后循环遍历每个单元格，将其值存入一维数组中。最后，它使用Debug.Print语句将数组内容输出到立即窗口。您可以根据需要修改数据范围和输出方式。