Excel VBA教程：使用一维数组存储数据并写入Excel单元格

Excel VBA中的一维数组又被称为清单，清单里面的每个值都会对应着一个数组索引。

1、如何声明一维数组

Dim arr(5) As Integer

数组的声明和变量的声明基本相似，都是使用Dim声明。不同点就是数组要加上()，需要指定长度的话要在()里面写上数字，不指定长度的就是动态数组。

2、一维数组的上标和下标

一维数组的第一个成员的索引是0，也就是说一维数组默认的下标是从0开始的。一维数组的上标就是()里面的数字，arr(5)的上标就是5.

3、一维数组的赋值

需求：

将Excel表格第一列的课程名称读取出来，放入数组中。

对应的VBA代码如下

Sub ss()

Dim arr(9) As Integer

Dim i As Integer

For i = 2 To 11

arr(i - 2) = Range("a" & i)

End Sub

Dim arr(9) As Integer 就是声明一个上标为9的数组（可以放10个成员）

For循环是遍历获取课程名称单元格

arr(i - 2) = Range("a" & i)把循环出来的课程名称赋值给到arr数组成员

4、一维数组数据写入Excel单元格

需求

把arr数组中存储的课程名称，写入Excel表格d列，从d2单元格开始。

增加VBA代码如下

For i = 0 To 9

Range("d" & i + 2) = arr(i)

for循环是遍历取arr数组的值

Range("d" & i + 2) = arr(i)将遍历的数组的值赋值给到对应单元格。

执行后的效果如下

VBA中的一维数组的基本用法暂时就说到这里，你学会了么？

~如果您喜欢的话，欢迎点赞+关注+留言哦，感谢您的支持！