Excel VBA 存储数组并写入工作表

简介

在Excel VBA中，可以使用数组来存储和操作一组数据。数组是一种有序的数据集合，每个数据称为数组的元素。通过将数据存储在数组中，可以方便地对其进行排序、过滤、计算等操作。本文将介绍如何在Excel VBA中存储数组，并将数组的数据写入工作表。

存储数组

在Excel VBA中，可以使用变量声明一个数组，并使用ReDim语句来定义数组的大小。下面是一个简单的示例：

Dim arr(1 To 5) As Variant

上述代码创建了一个名为arr的数组，它包含5个元素。数组的大小可以根据需求进行调整。

要向数组中添加数据，可以使用赋值语句，例如：

arr(1) = 10
arr(2) = 20
arr(3) = 30
arr(4) = 40
arr(5) = 50

上述代码将数值10、20、30、40和50存储在数组arr的相应位置。

写入工作表

一旦将数据存储在数组中，可以将数组的数据写入Excel工作表中。要实现这个目标，可以使用Range对象的Value属性。

下面是一个将数组数据写入工作表的示例：

Dim arr(1 To 5) As Variant
arr(1) = 10
arr(2) = 20
arr(3) = 30
arr(4) = 40
arr(5) = 50

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")

ws.Range("A1:E1").Value = arr

上述代码将数组arr的数据写入Sheet1工作表的A1:E1单元格范围内。

示例

以下是一个完整的示例，将数组数据写入工作表的代码：

Sub WriteArrayToWorksheet()
    Dim arr(1 To 5) As Variant
    arr(1) = 10
    arr(2) = 20
    arr(3) = 30
    arr(4) = 40
    arr(5) = 50
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ws.Range("A1:E1").Value = arr
End Sub

将上述代码复制粘贴到Excel VBA编辑器中，并运行该宏，数组arr的数据将被写入Sheet1工作表的A1:E1单元格范围内。

希望这篇文章对你使用Excel VBA存储数组并写入工作表有所帮助！