数组中的下标和上标用函数，效果及代码

获取数组的下标和上标即可知道数组中元素的个数。 使用函数作为下标，使用函数作为上标。

效果及代码如下

Sub 上标和下标()    Dim arr    arr = Array(1, 2, 3, 4, 5)    Range("a1:e1") = arr    Range("a2") = "下标为：" & LBound(arr)    Range("a3") = "上标为：" & UBound(arr)End Sub

2. 分割功能

Split 函数将字符串转换为数组，返回一个从零开始的包含指定数量子字符串的一维数组。 语法如下：

分割([,[,限制[,]]])

以下代码需要将带[-]的EAD1-506-152转换为3个元素的数组。

Sub tt()    Dim i As Byte    Dim arr: arr = Split("EAD1-506-152", "-")    i = UBound(arr)    Range("a5").Resize(1, i + 1) = arrEnd Sub

3. 加入功能

可以将数组转换为字符串，并且可以指定分隔符。 语法如下

加入（[， ]）

下面的代码使用\将array中的数组转换为路径。

Sub test()    MsgBox Join(Array("D:", "成本报表", "2023年10月"), "\")End Sub