循环并将单元格值放入数组后，VBA数组为空

在VBA中，循环并将单元格值放入数组后，如果数组为空，可能有以下几个原因：

1. 循环未正确执行：请确保循环语句正确编写，并且循环体内的代码能够正确执行。可以使用调试工具或输出语句来检查循环是否被执行。
2. 单元格值未正确赋给数组：在循环体内，需要将单元格的值赋给数组的元素。可以使用赋值语句（如array(i) = Range("A1").Value）来实现。请确保赋值语句正确编写，并且赋值的单元格地址正确。
3. 数组未正确声明或初始化：在使用数组之前，需要先声明和初始化数组。可以使用Dim语句声明数组，并使用ReDim语句或直接赋值来初始化数组。请确保数组的维度和大小与需要存储的数据匹配。
4. 单元格值为空：如果循环遍历的单元格值为空，那么放入数组后，数组中对应的元素也会为空。可以在循环体内添加判断语句，跳过空值的单元格。

以下是一个示例代码，演示如何循环并将单元格值放入数组：

Dim dataRange As Range
Dim dataArray() As Variant
Dim cell As Range
Dim i As Integer

' 设置数据范围
Set dataRange = Range("A1:A10")

' 初始化数组
ReDim dataArray(1 To dataRange.Rows.Count)

' 循环遍历单元格并将值放入数组
i = 1
For Each cell In dataRange
    If Not IsEmpty(cell.Value) Then
        dataArray(i) = cell.Value
        i = i + 1
    End If
Next cell

' 输出数组元素
For i = 1 To UBound(dataArray)
    Debug.Print dataArray(i)
Next i

在上述示例中，我们首先声明了一个数据范围dataRange，然后使用ReDim语句初始化了一个与数据范围行数相同大小的数组dataArray。接着，使用循环遍历dataRange中的每个单元格，将非空值赋给数组的对应元素。最后，通过循环输出数组的元素。

对于VBA数组的更多详细信息，可以参考腾讯云的相关文档：VBA数组介绍。