vba中如何提取数组的列数（VBA中利用数组上下标快速求出数组元素个数的方法）

大家好，今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录，来源于我多年的经验。今日分享的是NO.223-NO.224，内容是：

NO. 223：计算数组的上标下标及元素的个数值

NO. 224：数组函数JOIN的作用

VBA过程代码223：计算数组的上标下标及元素的个数值

　Sub Mynz ()

Dim arr(10 To 50)

Dim brr(1 To 10, 1 To 100)

MsgBox "第一个一维数组数组的上标是：" & UBound(arr) & Chr(13) _

& "数组的下标是：" & LBound(arr) & Chr(13) _

& "数组的元素个数是：" & UBound(arr) - LBound(arr) 1 & Chr(13) _

& "第二个两维数组第一维的上界是:" & UBound(brr, 1) & Chr(13) _

& "第二维的上界是:" & UBound(brr, 2)

End Sub

代码解析：mynz过程将一维数组arr和二维数组brr的上下标计算出来，将一维数组的元素个数计算出来提供给用户。上下标是通过Ubound函数及Lbound的函数来实现的。元素个数是： UBound(arr) - LBound(arr) 1

VBA过程代码224：数组函数JOIN的作用

Sub Mynz ()

Dim arr(1 To 10), i As Integer, txt As String

For i = 1 To 10 '给数组赋值

arr(i) = i

Next i

txt = Join(arr, ",") '将arr数组的元素连成字符串，用逗号作分隔符

MsgBox txt

End Sub

代码解析：mynz过程利用Join函数将数组的值与指定字符连接，形成一个字符串。首先给数组arr进行赋值，赋值为1到10的自然数。然后利用Join函数将数组的值与指定字符","连接，连接后将最后的字符串赋值给txt,最后用MsgBox对话框显示给用户

VBA是利用OFFICE实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，总结了四部VBA学习资料，是我"积木编程"思想的体现。

第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；

第二：VBA数据库解决方案，是数据处理的专业利器，介绍利用ADO连接ACCDB,EXCEL。

第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。

第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。