VBA经典应用69例应用9：Preserve关键字利用，保留原值
《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：VBA经典应用69例应用9：Preserve关键字利用，保留原值
【分享成果，随喜正能量】287 人生最忌讳就是过于圆满。有人婚姻不好，但子女很优秀，有人婚姻很好，但他身体不好，有人事业很顺，但家庭不和睦，有人家庭和睦，日子却过的很清贫。水满则溢，月满则亏，任何事物都有其度，过了这个度就会适得其反。人生最好的状态是求缺不求满。福不可享尽，让三分给他人。人生所求不必太圆满，求而不得未必是遗憾!人生无常，要学会知足。知足者，贫贱亦乐。不知足者，富贵亦忧。
应用9 VBA中的ReDim声明语句
大家好，我们这讲开始一个新的应用专题讲解，就是VBA中的ReDim声明语句，这个专题应用的讲解也是结合给学员答疑的频度来讲解的，很多学员都问我ReDim的用法，所以我将努力结合我多年应用经验并结合一些经典的用法展示给大家。
ReDim语句用于在VBA中声明动态数组的大小。以后可以根据需要多次使用它，并重新声明数组的大小。它只能用于动态VBA数组（在原始声明中未声明数组大小），不适用于固定VBA 数组（在原始声明中声明数组大小）。
3 Preserve关键字利用，保留原值
在动态数组使用过程中，我们可能希望在代码的后期阶段修改数组大小，但保留已在数组中的信息。如果是这样的话，可以使用ReDim Preserve。
Sub mynzC()
'声明字符串数组
Dim strNames() As String
'调整字符串数组的大小，使其能够容纳3个值
ReDim strNames(2) As String
strNames(0) = "小猫"
strNames(1) = "小狗"
strNames(2) = "小鸡"
MsgBox Join(strNames, vbCrLf)
'调整字符串数组的大小，使其能够容纳5个值
ReDim Preserve strNames(4) As String
strNames(3) = "小猴"
strNames(4) = "小马"
MsgBox Join(strNames, vbCrLf)
End Sub
代码截图：
代码的讲解：
1）上述代码中 ReDim Preserve strNames(4) As String 是重新分配数组的大小，但在重新分配的时候是保留原来3个数据的。
我们看代码的运行结果：
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
