第二章 数组

2.5 工作表函数

在用VBA对数组进行操作时，引用合适的Excel工作表函数，会省去许多编程代码，提高运行效率，让你事半功倍。

下面我们就来介绍几个常用的Excel工作表函数在数组上的应用：

1、数组求和

Application.Sum (arr)

2、数组平均值

Application.Average (arr)

3、数组大小值

Application.Max (arr) '数组最大值

Application.Min (arr) '数组最小值

Application.Large (arr, 3) '数组第3最大值

Application.Small (arr, 3) '数组第3最小值

4、数组查询

Match(查找内容, 数组, 查找方式)

返回一个一维数组里要查找的内容所在的位置，查找不到返回空。查找方式一般填为0，查找等于查找内容的第一个数值。

例如：

Application.Match("查找值", brr, 0)

5、数组拆分

Index一个好好的查询函数，却干起了哈士奇的活（笑脸）

Index(数组,行, 列)：返回一个一维数组里指定位置的值，或返回一个二维数组里指定行列的值。对二维数组进行操作时，如果省略行，则返回整列，如果省略列，则返回整行。VBA就是利用这个功能，从一个二维数组里任意拆分出一行或一列，形成一个新的数组。

卡片号

资产名称

建卡

原值

净值

0000793398

空调

2007-12-31

498720.00

14961.60

0000793400

台式电脑

2007-12-31

35670.00

1070.10

0001218983

音响设备

2007-12-31

12420.00

372.60

0001443995

音响设备

2008-06-11

6800.00

204.00

0001443996

音响设备

2008-06-11

6800.00

204.00

0001443997

音响设备

2008-06-11

6800.00

204.00

0003257991

台式微机

2010-12-29

6100.00

183.00

0003257992

台式微机

2010-12-29

6100.00

183.00

0003444159

电视机

2011-07-07

15600.00

468.00

0004715737

空调

2012-09-11

5700.00

171.00

0004715738

空调

2012-09-11

5700.00

171.00

0004966154

监控设备

2012-12-05

8000.00

240.00

0004966420

金库门

2012-12-05

76000.00

2280.00

0005925757

笔记本式微机

2012-12-30

5700.00

171.00

0006065400

监控设备

2012-12-30

24250.00

727.50

Sub 数组工作表函数()

arr = Range("a1").CurrentRegion

brr = Application.Index(arr, , 1)

'返回arr数组的第1列，形成一个二维数组

brr = Application.Transpose(brr)

'转换后得到一个一维数组

crr = Application.Index(arr, 2)

'返回arr数组的第2行，形成一个一维数组

End Sub

Excel还有许多函数可以应用于数组，大家可以自己动手试一下，这里就不再一一举例了。

往期精彩回顾：

学习VBA，报表做到飞 第二章 数组 2.4 Filter函数

学习VBA，报表做到飞 第二章 数组 2.3 Split与Join

学习VBA，报表做到飞 第二章 数组 2.2 数组的上界与下界

我是云飞扬，职场财会人员，愿与大家分享表格制作和数据统计分析的技巧与方法，希望大家的工作更便捷，更轻松！