vba遍历数组_在VBA代码运行中创建数组

蓝字关注，加微信NZ9668获资料信息

 VBA解决方案   系列丛书作者 

头条百家平台 VBA资深创作者

_______________________________

全球股市震荡，市场信心不足，后疫情时代将终将演绎一场战胜萧条的战役。无论怎样，我们一定要坚信，疫情终将会过去，曙光一定会到来。后疫情时代将会是一个全新的世界，很多理念都将被打破，大多数人不会再享受体制内的保护，对于我们每个人，要尽可能多的学习有用的知识，为自己充电。在今后更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。为后疫情时代做的必要准备。

今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。当前的代码多是出自VBA数组与字典解决方案，今日分享的是NO.245，内容是：

VBA过程代码245：在代码运行时创建数组

Sub MyNZ ()

     Dim arr As Variant

     Dim i As Integer

     arr = Array("A111", "A222", "A333","A444", "A555", "A666", "A777","A888")

     For i = LBound(arr) To UBound(arr)

         Sheets("20").Cells(i, 1) = arr(i)

    Next

  EndSub

代码解析：MyNZ过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。

第1行代码使用Option Base语句声明数组下标的缺省下界为1，数组下标的缺省下界默认为0。

第5行代码使用Array函数创建数组用来保存数据。

第6行代码使用LBound函数和UBound函数取得数组的最小和最大下标。

第7行代码确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。

VBA是利用OFFICE实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现在推出了四部VBA经验学习资料，是我“积木编程”思想的体现。

第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；

第二：VBA数据库解决方案，是数据处理的专业利器，介绍利用ADO连接ACCDB,EXCEL。

第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。

第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

目前正在写第五部教程：VBA中类的解读和利用，希望在年内陆续在各个平台和大家见面。

VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。学习有用的知识，让健康的知识服务于大众，不要想不劳而获，更不要去偷奸取巧，踏踏实实，沉下心，提高自己，为后疫情时代做好知识的储备。

_____________________________ 

有启发 点在看，转给朋友  约作者 请留言，直接交流

更多关联阅读