VBA数组基础

点击上面"Excel公式与技巧"篮字关注公众号

点击文章底部左下角"阅读原文"即可学习视频
学习建议【看千遍不如操作练习一遍】
微信号【duanzhenyun】加微信邀请进交流群

推荐学习120个技巧（包含常用技巧，条件格式，数据透视表及打印技巧），超过6个小时视频讲解，点击文章底部阅读原文即可购买学习。

1、数组的维数
数组包含
单个变量（一个单元格）
一维数组（整行单元格）
二维数组（多行多列单元格）
三维数组（多个工作表的数据）

2、单个变量

Sub 单个变量()

复制代码

Dim a As String

复制代码

a = "关注公众号【Excel公式与技巧】"

复制代码

Range("a2").Value = a

复制代码

End Sub

复制代码

3、一维数组

Sub 一维数组()

复制代码

Dim arr(1 To 4) As String '定义一个byte类型的数组，名称为arr，可以存储4个数据

复制代码

arr(1) = "序号"

复制代码

arr(2) = "姓名"

复制代码

arr(3) = "月份"

复制代码

arr(4) = "销量"

复制代码

Range("a1").Value = arr(1)

复制代码

Range("b1").Value = arr(2)

复制代码

Range("c1").Value = arr(3)

复制代码

Range("d1").Value = arr(4)

复制代码

End Sub

复制代码

4、二维数组
Dim 数据名称 (a to b，a to b) As 数据类型 'a和b为整数，分别为数组的起始和终止索引号，该数组为（b-a+1）个数据。
如下面第2行代码表示5行2列的意思。

Sub 二维数组()

复制代码

Dim arr(1 To 5, 1 To 2) As String '定义一个String类型的5行2列的数组，名称为arr，可以存储10个数据

复制代码

arr(1, 1) = "月份"

复制代码

arr(1, 2) = "销量"

复制代码

arr(2, 1) = "1月"

复制代码

arr(2, 2) = 120

复制代码

arr(3, 1) = "2月"

复制代码

arr(3, 2) = 240

复制代码

arr(4, 1) = "3月"

复制代码

arr(4, 2) = 360

复制代码

arr(5, 1) = "4月"

复制代码

arr(5, 2) = 480

复制代码

Range("a1:b5").Value = arr

复制代码

End Sub

复制代码

5、三维数组
Dim arr（1 to 3，1 to 4，1 to 5）AS Integer ‘定义一个三维数组，3张4行5列的表格数据

更多Excel函数使用及技巧可以打开公众号，点开历史文章，然后在顶部搜索技巧或者函数即可，如不会可点击红色字体跳转连接看操作步骤，如何利用公众号搜索功能查资料

长按下面二维码；点击上面"识别图中二维码"然后再点关注，可以收到更多Excel教程；或者加入QQ交流群657629885或者加我微信邀请进微信群duanzhenyun，让我们一起学习Excel函数公式与技巧应用。
喜欢本文，请点这里