VBA中函数运用 vba函数怎么使用

今天给大家介绍一些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

最终结果如下: