VBA中数组的合并与拆分(Join和Split),筛选(filter)的实际应用

2022-10-11 21:10:54 161 0
魁首哥

大家好,我们今日继续讲解 VBA 代码解决方案的第63讲内容:数组的合并与 字符串 拆分(Join & Split ),及筛选filter函数的应用

一Join函数:返回一个字符串,该字符串是通过连接某个数组中的多个子字符串而创建的,语法如下:

Join(sourcearray[, delimiter])

参数sourcearray是必需的,包含被连接子字符串的一维数组。

参数delimiter是可选的,在返回字符串中用于分隔子字符串的字符,如果忽略则使用空格(” “)来分隔子字符串。则列表中的所有项目都连接在一起,中间没有分隔符。

二:split函数:这个函数的讲解在之前已经讲过,不再多说了。

多个字符的合并和字符串按规律的拆分是经常遇到的,如:A-REW-E-RWC-2-RWC 按分隔符”-“拆分成6个字符放在一个数组中;有一组数array(23,45,7,1,76)想用分隔符-连接成一个字符串

上面两种情况的实现即用到:split(字符串,”分隔符”) 拆分字符串。join(数组,”分隔符”) 用分隔连接数组的每个元成一个字符串

实例一:

Sub Myst()

Dim arr, myst As String

myst = “A-REW-E-RWC-2-RWC”

arr = Split(myst, “-“)

MsgBox arr(0) ‘显示数组的第一个数(分隔后的数组最小下标为0,不是1),显示结果为A

MsgBox Join(arr, “,”) ‘再用”,”把数组的每个值连接成一个字符串,结果为”A,REW,E,RWC,2,RWC”

End Sub

值得注意的是:split和join只能对一维数组进行操作,

实例二:

Sub MyJoin()

Dim strJoin As String

strJoin = Join(Array(“a”, “b”, “c”), “,”)

MsgBox strJoin

End Sub

三:Filter函数:返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。filter()是数组的一个常用操作,它用于把Array的某些元素过滤掉,然后返回剩下的元素。

语法:Filter(sourcesrray, match[, include [, compare]])

sourcesrray必须的。要执行搜索的一维字符串数组。

match必须的。要搜索的字符串。

include可选的。Boolean值,表示返回子串包含还是不包含match字符串。如果include是True,Filter返回的是包含match子字符串的数组子集。如果include是False,Filter返回的是不包含match子字符串的数组子集。

compare可选的。数字值,表示所使用的字符串比较类型。

Filter函数实现数组筛选:数组的筛选就是根据一定的条件,从数组中筛选符合条件的值,组成一个新的数组,实现数组筛选的Filter函数用法:Filter(数组, 筛选的字符, 是否包含)

实例三:

Sub MyFD() ‘实例三

arr = Array(“ABC”, “A”, “D”, “CA”, “ER”)

arr1 = VBA.Filter(arr, “A”, True)

arr2 = VBA.Filter(arr, “A”, False)

MsgBox Join(arr2, “,”)

End Sub

遗憾的是函数只能进行模糊筛选,不能精确匹配。

实例四:查找数组的差集

Sub Filter1()

Dim varArr1 As Variant

Dim varArr2 As Variant

Dim i As Integer

varArr2 = Array(1021, 1023, 1025)

varArr1 = Array(1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028)

For i = 0 To UBound(varArr2)

varArr1 = VBA.Filter(varArr1, varArr2(i), False)

Next i

MsgBox Join(varArr1)

End Sub

注意,filter函数在此是模糊查找,下面代码将无法返回我们想要的值.

代码截图:

运行结果一:

运行结果二:

运行结果三:

运行结果四:

今日内容回向:

1 VBA数组的三个函数是什么?

2 数组筛选时两个方案是什么?

收藏
分享
海报
0 条评论
161
上一篇:PHP笔记(一)PHP基础知识 下一篇:以PHP门面模式实现简单的邮件发送

本站已关闭游客评论,请登录或者注册后再评论吧~

忘记密码?

图形验证码