【分享成果，随喜正能量】风雨阻挡不了脚步，煎熬阻挡不了脚步，挑战阻挡不了向前，障碍阻挡不了远方。。

《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用9：在程序中使用ReDim语句

应用9 VBA中的ReDim声明语句

大家好，我们这讲开始一个新的应用专题讲解，就是VBA中的ReDim声明语句，这个专题应用的讲解也是结合给学员答疑的频度来讲解的，很多学员都问我ReDim的用法，所以我将努力结合我多年应用经验并结合一些经典的用法展示给大家。

ReDim语句用于在VBA中声明动态数组的大小。以后可以根据需要多次使用它，并重新声明数组的大小。它只能用于动态VBA数组（在原始声明中未声明数组大小），不适用于固定VBA 数组（在原始声明中声明数组大小）。

2 在程序中使用ReDim语句

ReDim语句可以在程序级别使用，不能在模块或全球级别使用。在应用时我们先声明数组为动态数组，在程序的运行过程中，可以使用ReDim语句重新调整数组的大小。如下面的代码示例。

在这个示例中，我们会首先定义一个动态数组，然后再调整这个数组的大小，代码：

Sub mynzA()

'声明字符串数组

Dim strNames() As String

'调整字符串数组的大小，使其能够容纳3个值

ReDim strNames(2) As String

strNames(0) = "小猫"

strNames(1) = "小狗"

strNames(2) = "小鸡"

MsgBox Join(strNames, vbCrLf)

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) = "小马"

MsgBox Join(strNames, vbCrLf)

End Sub

代码的截图：

代码的讲解：

1）在上述代码中我们利用了ReDim strNames(1) As String来再次声明动态数组strNames(1)的大小，使其可以有两个值的容量。

运行结果：

上面两段代码中都是针对动态数组strNames()的，如果最初声明的是固定数组，上述 ReDim将是一个无效的命令。

[待续]

本讲内容参考程序文件：应用009.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】勤于接纳，勇敢学习，拓展边界，助力自我，可以看不见突飞猛进的改变，但一定是在改变。。