分享

VBA合并数组

 莫怜飘逸 2023-08-26 发布于广东

想要将两个数组的元素合并,形成一个新的数组,可以将join函数和split函数组合使用,原理是用join函数分别将两数组内的元素用特殊符号(如“|”)合并成字符串,再将两字符串用同样的特殊符号合并,再用split函数根据特殊符号分割成数组:

Sub 合并两个数组()
arr1 = Array("A", 1, "B", 2)
arr2 = Array("C", "3", "D", "4")
arr3 = Split(Join(arr1, "|") & "|" & Join(arr2, "|"), "|")
End Sub

比如以上代码的作用就是,先将arr1数组和arr2数组分别合并成“A|1|B|2”和“C|3|D|4”两个字符串,再用“|”连接两个字符串成“A|1|B|2|C|3|D|4”,最后再按“|”拆分成新的合并数组。

注意事项:采用的特殊符号必须是所有数组元素中没有的特殊符号,否则使用split函数进行分割时会导致错误分割。

想要了解更多的VBA知识,欢迎到http://moqingyan.360doc.com我的个人图书馆查看。

    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多