ReDim语句的应用

今天的内容是《EXCEL在VBA中的应用》第十二章“ExcelVBA中表格的应用”。本讲座为第3节“ReDim语句的应用”。这套教程从简单的宏录制开始，一直到表单的搭建，内容丰富，案例多。每个人都可以很容易地掌握相关知识。这套教程适合初学者。它由三卷十七章组成，是我们使用EXCEL时必须掌握的内容。

第三节ReDim声明的应用

大家好，上一节我们讲解了如何使用动态数组来重新分配内存。在本文中，我们将重点介绍重新分配内存时使用的Redim语句。

1ReDim语句语法

ReDim语句在过程级别使用，为动态数组变量重新分配存储空间。

语法：ReDim[保留]varname(下标)[Astype],[varname(下标)[Astype]]

保存是可选的。用于在调整最后一个维度大小时保留现有数组中的数据的关键字。

varname是必需的。变量的名称遵循标准变量的命名约定；

需要订阅。数组变量的维度最多可以声明为60个维度。

下标参数使用以下语法：

[lowerTo]上限[,[lowerTo]upper]

如果未显式指定下界，OptionBase语句将检查数组的下界。如果不存在OptionBase语句，则下限为零。

类型是可选的。变量的数据类型可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前不支持）、Date、String（对于可变长度字符串）、Stringlength（对于定长字符串）、object、variable；用户定义类型，或对象类型。

2使用ReDim语句

ReDim语句用于调整已使用Private、Public或Implicit语句（无维度订阅）正式声明的动态表的表大小。

在实际应用中，可以多次使用ReDim语句来改变数组中的元素数量和维数。但是，您不能使用ReDim将数组更改为其他数据类型的数组，但如果将数组声明为Variant类型，则可以使用Astype子句更改元素的类型。但是，如果使用Save关键字，则不允许更改数据类型。

如果使用Save关键字，则只能调整最后一个表维度的大小，而无法更改维度数。例如，如果您的表只有一个维度，您可以调整该维度的大小，因为它是最后一个也是唯一的维度。但是，如果数组有两个或多个维度，则只能调整最后一个维度的大小并保留数组的内容。

使用Preserve时，只能通过改变上限来改变数组，改变下限会导致错误。如果减小数组大小，则删除的元素中的数据将丢失。

使用3ReDim语句的示例

1)以下代码显示增加动态数组最后一维的大小，而不删除数组中的任何现有数据。

RedimX(10,10,10)

RedimPreserveX(10,10,15)

2)下面的示例使用ReDim语句为动态数组变量分配和重新分配存储空间。它将OptionBase设置为1。

DimMyArray()AsInteger

RedimMyArray(5)

对于I1到5

我的桌子(I)I

之后

3)以下语句调整表格大小并清除元素。

RedimMyArray(10)

对于I6至10

我的桌子(I)I

之后

4)以下语句调整数组大小，但不清除元素。

RedimPreserveMyArray(15)

对于I11至15

我的桌子(I)I

下一个

查看下面的通用代码：

SubmynzD()'ReDim语句的应用

DimMyArray()AsInteger

RedimMyArray(5)

对于I1到5

我的桌子(I)I

之后

MsgBox的第五个值为：'MyArray(5)'值为5

RedimMyArray(10)

对于I6至10

我的桌子(I)I

之后

消息博x'的第五个值是：'MyArray(5)'值为0

MsgBox的第六个值为：'MyArray(6)'值为6

对于I1到5

我的桌子(I)I

之后

RedimPreserveMyArray(15)

对于I11至15

我的桌子(I)I

之后

MsgBox的第五个值为：'MyArray(5)'值为5

MsgBox的第六个值为：'MyArray(6)'值为6

结束子

代码截图：

代码运行结果：（略）

今日内容回顾：

1）ReDim语句的作用是什么？

2）先想想上面代码的结果，然后运行它？

本讲内容参考程序文件：workbook12xlsm

分享成果，享受正能量

VBA应用及学习方法：

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我的VBA应用程序定义。在新型办公软件取代OFFICE到来之前，能够在数据处理上达到极致的将是王者。其中，终极技能非VBA莫属！

记得20年前刚学VBA的时候，当时资料很少，只能看源码自己摸索，确实很难。二十年过去了为了防止正在学习VBA的朋友重蹈我以前的经历，我根据自己多年使用VBA的实践经验，推出了七本VBA专题教程。

第一套：VBA代码解答，是对VBA中各个知识点的讲解。教程共147篇，涵盖大部分VBA知识点；本套教程当前版本为修订版第二版，程序文件均通过了32位和64位OFFICE系统的测试。

第二套：VBA数据库解决方案数据库是数据处理的专业工具教程详细介绍了使用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员学习。本套教程目前提供修改后的第一版教程，程序文件已经在32位和64位OFFICE系统上通过了测试。

第三套：VBA表格和字典解决方案表格和字典是VBA的精髓。字典是提高VBA代码水平的有效手段，值得深入学习，是初中级人员提高代码水平的手段。本套教程当前版本为修订版第一版，程序文件在32位和64位OFFICE系统上均通过了测试。

第四套：VBA代码解答视频是专门针对初学者的视频讲解，可以帮助你快速上手，更快掌握这项技能。本套教程是第一套教程（修订版）的视频讲解，视频更容易让人接受。

第五套：VBA中类的解读与利用这是一篇进阶教程，讲解了类的虚无和实体程度，虽然类的使用较少，但认真学习可以促进自己VBA理论的提高。这套教程的理解主要是让读者了解和理解一种佛教哲学。本套教程当前版本为修订版第一版，程序文件在32位和64位OFFICE系统上均通过了测试。

第六套教程：VBA获取与处理这是一套范围更广、实用性更强的进阶教程。教程共二十个主题，包括：跨应用信息获取、随机信息利用、电子邮件发送、VBA互联网数据抓取、VBA延迟操作、剪贴板应用、Split功能扩展、工作表信息与其他应用交互、FSO的利用。对象，获取工作表和文件夹信息，获取图形信息，自定义工作表信息函数等。程序文件通过了32位和64位OFFICE系统测试。

第七套教程：用VBA进行EXCEL应用本教程共分三册，从创建宏、对话框、工作簿和工作表、单元格对象等基础知识开始。错误处理、字符串操作、日期时间、事件、表格应用、操作程序等等，直到控件和表单对象的应用都给我们讲解清楚，提高我们的EXCEL水平。

以上教程的学习是：7→1（或4）→3→2→6→5。第四套是第一套的视频讲解，所以选择第一套和第四套中的一套即可。有需要的朋友可以W：VBA6337