今天给大家介绍一些VBA中常用的函数，可以帮助大家提高工作效率。下面将逐一介绍。
1.利用数组求最值，使用max函数。
Sub 利用数组求最值()
Dim arr
arr = Range("a1:a10")
Range("b1") = Application.Max(arr)
End Sub
运行结果如图：
2.利用数组求和。其原理和利用数组求最值是一样的，只需要将“max”换成sum“”,大家可以自己试一下。
3.统计个数的函数，统计个数的函数有两个，一个是count函数，一个是counta函数。count函数是统计数字的函数，counta函数是统计非空单元格的函数。咱们先看代码：
Sub 利用数组求最值()
Dim arr
arr = Range("a1:a10")
Range("b1") = Application.Count(arr)
Range("b2") = Application.CountA(arr)
End Sub
咱们再看运行结果：
从运行结果可以看出，对于counta函数，虽然“A4”单元格为空，但被赋予到数组“arr”中，所以依然会被计数。
4.查找函数，查找函数使用"match"
代码如下：
Sub 查找函数()
Dim arr
arr = Range("a1:a10")
MsgBox "数字为8的单元格所在行是：" & Application.Match(8, arr, 0)
End Sub
运行结果如下：
5． Split函数
该函数是按分隔符把字符串截取成VBA数组，该函数最后生成的是很多个数组，而且编号是从0开始的。代码如下：
Sub split()
Dim arr, s
s = "A.B.C.D"
arr = VBA.split(s, ".")
MsgBox arr(1)
End Sub
如果想要重新再连接起来，可以用join，代码如下：
Sub t2()
Dim arr, s
s = "A.B.C.D"
arr = VBA.split(s, ".")
MsgBox join(arr, "-")
End Sub
效果如下：
6.filter函数
该函数是按条件筛选符合条件的值组成一个新的数组。该方法只适用于模糊查找，它是一种包含关系，如果要精确查找，只能用循环语句了。
Filter(数组,筛选条件,是/否)
当然此处需要提醒的是，如果“是“，即true的情况下，返回的是包含相关条件的数组，”否“则是返回非包含的数组。
例如下图，我们需要将第一列包含“a“的单元格的内容提取到b列中，将不包含”a”的单元格内容提取到c列中
代码如下：
Sub t3()
Dim arr, arr1, arr2
arr = Application.Transpose(Range("a2:a7"))
arr1 = VBA.Filter(arr, "a", True)
arr2 = VBA.Filter(arr, "a", False)
Range("b2").Resize(UBound(arr1) + 1) = Application.Transpose(arr1)
Range("c2").Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
End Sub
注意：arr = Application.Transpose(Range("a2:a7"))，这句中的transpose是将一列多行的二维数组转化为一维数组，在最后单元格中要转化为一列多行的二维数组，即：Range("b2").Resize(UBound(arr1) + 1) = Application.Transpose(arr1)，并且此处ubound要加1是因为默认的一维数组是从0开始编号的，再单元格中填充时一定要加1
最终结果如下:
