摘要：《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本
《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：VBA经典应用69例应用9：在程序中使用ReDim语句
【分享成果，随喜正能量】257 佛陀从不勉强别人去做他不喜欢的事情，佛陀只是告诉众生，何者是善？何者是恶？善恶还是要靠自己去分辨，生命还是要自己去掌握！。
大家好，我们这讲开始一个新的应用专题讲解，就是VBA中的ReDim声明语句，这个专题应用的讲解也是结合给学员答疑的频度来讲解的，很多学员都问我ReDim的用法，所以我将努力结合我多年应用经验并结合一些经典的用法展示给大家。
ReDim语句用于在VBA中声明动态数组的大小。以后可以根据需要多次使用它，并重新声明数组的大小。它只能用于动态VBA数组（在原始声明中未声明数组大小），不适用于固定VBA 数组（在原始声明中声明数组大小）。
ReDim语句可以在程序级别使用，不能在模块或全球级别使用。在应用时我们先声明数组为动态数组，在程序的运行过程中，可以使用ReDim语句重新调整数组的大小。如下面的代码示例。
在这个示例中，我们会首先定义一个动态数组，然后再调整这个数组的大小，代码：
Sub mynzA
'声明字符串数组
Dim strNames As String
'调整字符串数组的大小，使其能够容纳3个值
ReDim strNames(2) As String
strNames(0) = "小猫"
strNames(1) = "小狗"
strNames(2) = "小鸡"
End Sub
代码截图：
代码的解读：
1）Dim strNames As String 这是声明strNames为动态数组。
2） ReDim strNames(2) As String这是调整字符串数组的大小，使其能够容纳3个值。
代码的运行结果：
上述代码是使用动态数组的基本实例，我们在程序的运行过程中往往会根据实际需要重新给动态数组赋值，这个时候就需要利用ReDim 语句了，例如：我们需要给上面的数值在此赋值为：小猴，小马，两个数据，我们可以利用下面的代码：
Sub mynzB
'声明字符串数组
Dim strNames As String
'调整字符串数组的大小，使其能够容纳3个值
ReDim strNames(2) As String
strNames(0) = "小猫"
strNames(1) = "小狗"
strNames(2) = "小鸡"
MsgBox Join(strNames, vbCrLf)
'调整字符串数组的大小，使其能够容纳2个值
ReDim strNames(1) As String
strNames(0) = "小猴"
strNames(1) = "小马"
End Sub
代码的截图：
代码的讲解：
1）在上述代码中我们利用了ReDim strNames(1) As String来再次声明动态数组strNames(1)的大小，使其可以有两个值的容量。
运行结果：
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
来源：VBA语言专业教育
