![如何快速学习：[1]Swift编程语言](https://exp-picture.cdn.bcebos.com/fb738d9c2cf7dfb2f57a949fd01b1edef5dc13fa.jpg)
如何快速学习：[1]Swift编程语言,Swift，苹果于2014年WWDC（苹果开发者大会）发布的新开发语言，可与Ojective-C*共同运行于MacOS和iOS平台，用于搭建基于苹果平台的应用程......
2023-03-17 350 编程语言
VBA数组Array的使用
来源：互联网
2023-03-17 00:21:28 版权归原作者所有，如有侵权，请联系我们
如下图所示的程序代码，逐行写差不多相同的代码确实挺费力的，且容易出错。代码较少时容易写，看似比较容易理解；要写的代码较多时就比较容易出错，也显得比较繁杂。
初学VBA可以使用这种方法练手，熟练一些的时候还是结合数组Array写程序比较好，至少程序变得简洁，也可以提高程序的运行速度。
工具/原料
- 计算机
- Windows 7
- Excel 2010
方法/步骤
打开Excel表格，点击菜单栏上边的【开发工具】、【Visual Basic】打开VBA编辑器。
在VBA编辑器的菜单栏上边点击【插入】、【模块】。
在模块的代码窗口里边输入以下使用Array数组的程序代码。对比之前的VBA程序代码，将会发现后面的程序比较简洁。
Sub CreateText2()
Dim i, j, k, arr
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
Set fs = CreateObject("Scripting.FileSystemObject") '对计算机系统文件进行访问
Set fi = fs.CreateTextFile("d:Code12345.txt", True) '在D盘里边创建Code12345.txt文本文件
arr = Array("[User]", "uid=", "last_name=", "frist_name=", "accessibility=", _
"password=", "SAPME:DEFAULT SITE=", "role=", "group=") '把固定内容写入数组里边
For i = 1 To 1000 '从第一行到1000行
k = Application.WorksheetFunction.CountIf(mysheet1.Range(mysheet1.Cells(i, 1), _
mysheet1.Cells(i, 8)), "") '统计空白单元格的个数
If k = 0 Then '如果单元格空白个数为0则：
j = 0 'j初始化，数组从0调用
fi.WriteLine (arr(j)) '把数组里边内容写入文本文档
For j = 1 To 8 '从第一列到第八列
fi.WriteLine (arr(j) & mysheet1.Cells(i, j)) '从数组和单元格获取内容写入文本文档
Next
End If
Next
fi.Close
End Sub
VBA程序代码解读：
（1）For……Next循环嵌套使用时，外边的For执行一次，待内部的For执行完了之后再执行外边For一次，如此循环，外边的For执行完了之后，循环结束。
（2）Array是数组函数，里边的参数通常是由逗号（,）间隔，其对应值的序号是从0开始的。如：arr=Array("AA","BB","CC")，arr(1)的值为数组里边的第二个（即"BB"）。
（3）如果要数组里边对应的值，则点击【视图】、【本地窗口】，再按下【F8】键逐行运行程序，过了数组程序行便可以在“本地窗口”的展开数组里边看到相应的值。
运行VBA程序，其执行的结果都是一样的。
注意事项
- 个人经验，仅供参考。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
相关文章
- 详细阅读
-
web图表开发工具FineReport：[11]连续分组详细阅读
![web图表开发工具FineReport：[11]连续分组](https://exp-picture.cdn.bcebos.com/6002c9d4483104eb360a59bb092b74ee1d324e01.jpg)
web图表开发工具FineReport：[11]连续分组,数据库表数据是按照时间先后录入的，查询的时候希望按照时间先后，某个字段连续相同的话就合并起来显示，这样的报表可以通过相邻连续分组来实现。......
2023-03-17 573 编程语言
- 详细阅读
