1、UBond函数求数组的最大索引号

Sub UseUBound()
Dim a As Variant
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox "the biggest number of index is:" & UBound(a)

End Sub

UBound(name of array) '返回数组的最大索引号'

2、LBound函数求数组的最小索引号

用法同UBound

LBound(name of array) '返回数组的最小索引号'

Sub dwarr()
Dim arr(1 To 10, 1 To 100) As Integer
Dim a As Integer, b As Integer
a = UBound(arr, 1)
b = UBound(arr, 2)  'Chr(13)相当于回车键，用于换行,13是ASCII码'
MsgBox "第一维的最大索引号是:" & a & Chr(13) & _  '_表示换行,下一句与本句是同一句,_是连接符'
             "第二维的最大索引号是:" & b
End Sub

3、用Join函数将一维数组合并成字符串

Join函数是将数组中的元素使用指定分隔符连接成一个新的字符串，与Split函数的作用相反

Sub Jointest()
Dim a As Variant
Dim txt As String
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

txt = Join(a, "@")
'将数组a中的元素以@为分隔符合并成一个字符串，将结果保存到变量txt中'
MsgBox txt

End Sub

使用方法

join(数组名,"分隔符")