VBA数组入门10讲.docVIP

VBA数组入门10讲 兰版VBA数组入门10讲帮助 | 留言交流 | 登录 首页 我的图书馆 主题阅读 精彩目录 精品文苑 Tags 会员浏览 好书推荐 兰版VBA数组入门10讲（转载）语茶宝典 收录于2010-09-06 阅读数：查看 收藏数：1 公众公开 欢迎浏览 语茶宝典 个人图书馆中收藏的文章，想收藏这篇好文章吗，赶快吧，1分钟拥有自己的个人图书馆！ 我也要收藏 举报如果您在该网页中发现有色情、暴力、反动等不良内容，请填写以下表格联系我们： 以文找文 如何对文章标记，添加批注？ 兰版VBA数组入门10-1讲 Sub 数组入门(1) Dim x As Integer Dim arr(1 To 10) 创建一个可以盛下10个数的箱子，第一个位置是arr(1)，第二个位置用arr(2).. For x = 1 To 10 通过循坏向这个箱子里1-10个位置放入10个数 arr(x) = x 箱子里依次放入数字1-10,即arr(1)=1,arr(2)=2.... Next x 通过上面的循环,数组里装满了10个数字,下面就可以用arr(序数)得到相应位置的数了 MsgBox arr(5) 显示数组内第5个数字 End Sub 兰版VBA数组入门10-3讲 VBA数组储存于内存中，单元格的数据，储存于工作表的单元格区域里。 从单元格中取出数据放在内存。 单元格是行列结构的数据表，把它搬到内存中也应该是二维的数组。怎么搬呢？ 为了更好的搬运，内存先批了一块土地。内存说了，你有多少个单元格我不问，反正你有多少数据我提供多大的地方。 一、声明： Dim arr as Variant 声明一个变量，这个变量应该是一个可以转化成数组的Variant类型（可以省略），不能声明其他数据类型 如： Dim arr as string 这种声明就是错误的，存放单元格的数据类型必须是 Variant（也可以省略） Dim arr(1 to 10, 1 to 2 ) , 这种声明也是错误的，固定大小的VBA数组是不能一次性装入单元格数据 或：dim arr() 这种声明方式是声明一个动态数组，也可以装入单元格区域，构成一个VBA数组。 二、装入 arr =range(a9:c100) 装入很简单，变量 = 单元格区域 三、读出 装入数组后的单元格数值，可以按 数组名称(行数，列数) 直接读取该位置的值，如下面的代码。 Msgbox arr(3,2) 就可以取出搬过去的而构成的数组第3行第2列的内容 四、示例 Sub s3() Dim arr() 声明一个动态数组（动态指不固定大小） Dim arr1 声明一个Variant类型的变量 arr = Range(a1:c7) 把单元格区域A1：C7的值装入数组arr arr1 = Range(a1:c7) 把单元格区域A1：C7的值装入数组arr1 MsgBox arr(1, 1) 读取arr数组中第1行第1列的数值 MsgBox arr1(2, 3) 读取arr1数组的第2行第3列的数值 End Sub 下期预告：搬入内存的目的是为了更快速的计算，计算结束后，怎么搬回到单元格中呢？且听下回分解。 转兰版VBA数组入门10-4讲