当前位置：网站首页 > IT技术 > 正文

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

wptr33 2024-12-16 16:30 21 浏览

第二章数组

2.3 Split与Join

把两个函数放在一个章节来学习，是因为两个函数的功能正好相反，Split函数是用分隔符拆分一个字符串生成一个一维数组，Join则是用分隔符把一个一维数组合并成一个字符串。一个拆家一个重建。我们先来看字符串的拆分：

1、字符串的拆分

Split(expression,[定界符,[limit,[compare]]]

Split的4个参数中，只有第一个参数是必选的，它代表需要拆分的字符串。

定界符：以什么分隔符为拆分依据，如果以空格为依据来拆分，可以省略此参数

Limit：要拆分成几个字符串

Compare：分隔符是否区分大小写，默认0 区分大小写，1 不区分大小写

例句：

a = "学习/VBA/报表/做到飞"

arr = Split(a, "/")

以"/"为分隔符，把字符串a进行拆分，拆分后的字符串放到数组arr里，它会生成一个从0开始的一维数组。

2、把数组合并成字符串

Join（数组，分隔符）

Join分隔符的使用与Split相同，省略时使用空格作分隔符。

例句：

把刚才生成的arr数组里的各个数据用分隔符"-"连接成一个字符串：

a = Join(arr, "-")

得到的结果是：

"学习-VBA-报表-做到飞"

值得注意的是，Split与Join只能对一维数组进行操作，如果是一行或一列单元格生成的二维数组怎么办呢？用神器“乾坤大挪移”Transpose啊！一列单元格生成的二维数组转换一次，一行单元格生成的二维数组转换两次，就得到一个一维数组了！就像下面这样：

arr = Application.Transpose(Range("b1:b5"))

一次转换搞定！

小程序：

把下面b1:b5单元格的每个数字都加1，然后显示到D列。

1-2-3

2-3-4

3-4-5

4-5-6

5-6-7

Sub Split与Join函数()

arr = Application.Transpose(Range("b1:b5"))

For i = LBound(arr) To UBound(arr)

brr = Split(arr(i), "-")

For j = LBound(brr) To UBound(brr)

brr(j) = brr(j) + 1

Next j

arr(i) = Join(brr, "-")

Next i

Range("d1").resize(UBound(arr), 1) = Application.Transpose(arr)

End Sub

先把"b1:b5"单元格的内容转换后生成一个一维数组arr，再用For循环语句依次读取arr数组里的每一个数据，以"-"为分隔符拆分成一个一维数组brr，再对brr数组里的数值分别加1，再以"-"为分隔符连接成一个字符串还给arr数组。运行过程如下图所示：

往期精彩回顾：

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

学习VBA，报表做到飞第二章数组 2.1 数组的声明、赋值及读取

学习VBA，报表做到飞第一章入门篇 1.27 过程与函数

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

vba split

上一篇：VBA按指定列的值拆分数据表 vba 数据分列
下一篇：VBA中函数运用 vba函数怎么使用

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

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码因果推断模型

git pull命令使用实例 git pull--rebase

面试官:git pull是哪两个指令的组合?

git 执行pull错误如何撤销 git pull fail

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

git pull 之后本地代码被覆盖解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

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

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码 因果推断模型

git pull命令使用实例 git pull--rebase

面试官:git pull是哪两个指令的组合?

git 执行pull错误如何撤销 git pull fail

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

git pull 之后本地代码被覆盖 解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

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

因果推断Matching方式实现代码因果推断模型

git pull 之后本地代码被覆盖解决方案