Excel VBA 用单元格值填充数组 - VBA

在Excel中，使用VBA编写宏可以使我们轻松地处理数据。有时，我们需要将指定范围的单元格值填充到数组中，以便进行后续的处理。本篇文章将提供一个范例，演示如何用VBA实现将单元格值填充到数组的功能。

VBA 代码

下面是填充数组的VBA代码：

Option Explicit

Sub FillArrayWithCellValues()
    Dim myArray() As Variant
    Dim cellRange As Range
    Dim i As Integer
    Dim j As Integer
    
    Set cellRange = Range("A1:B3") '要填充的单元格范围
    
    '调整数组大小以匹配单元格数量
    ReDim myArray(cellRange.Rows.Count, cellRange.Columns.Count)
    
    For i = 1 To cellRange.Rows.Count
        For j = 1 To cellRange.Columns.Count
            myArray(i, j) = cellRange.Cells(i, j).Value
        Next j
    Next i
    
    '验证数组填充是否成功
    For i = 1 To cellRange.Rows.Count
        For j = 1 To cellRange.Columns.Count
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub

在上面的代码中，首先声明一个名为myArray的数组并将其定义为Variant类型。然后，我们定义一个cellRange变量并将其设置为我们要填充到数组中的单元格范围。

接下来，我们根据单元格数量调整数组大小。然后，使用两个for循环逐个填充单元格值到数组中。

最后，我们使用Debug.Print语句验证我们的数组是否成功填充。

使用方法

要使用上述代码，请按照以下步骤操作：

1. 打开Excel，并在工作簿中找到您要填充到数组中的单元格范围。
2. 按下Alt和F11键打开VBA编辑器。
3. 在左侧的项目资源管理器中选择您要打开的工作簿。
4. 在打开的工作簿中打开新模块。
5. 在模块中粘贴上述代码。
6. 按下F5键运行代码。
7. 验证代码是否成功填充了数组。

总结

本篇文章提供了一个简单的范例展示了如何使用Excel VBA将单元格值填充到数组中。希望这篇文章能对您有所帮助。如果您有任何问题或反馈，请随时在下面留言。