使用VBA数组Array简化代码

编写VBA程序时，如果需要逐行写相同的代码，会显得冗长而容易出错。特别是当代码量较大时，更加繁杂。初学VBA可以一行一行地编写代码，但是随着熟练度的提高，结合数组Array来编写程序会更好，因为这样可以使程序更加简洁，并提高运行速度。

步骤1：打开VBA编辑器

首先，打开Excel表格，点击菜单栏上的【开发工具】，再选择【Visual Basic】，即可打开VBA编辑器。

步骤2：插入模块

在VBA编辑器的菜单栏上，点击【插入】，然后选择【模块】，即可在代码窗口中插入一个新的模块。

步骤3：使用Array数组编写程序

在模块的代码窗口中输入以下代码：

Sub CreateText2()
    Dim i, j, k, arr
    On Error Resume Next
    Set mysheet1  ("Sheet1")
    Set fs  CreateObject("") '对计算机系统文件进行访问
    Set fi  ("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  (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
End Sub

解读VBA程序代码

这段代码是使用VBA数组Array来简化之前的代码。以下是对代码中的几个要点的解释：

1. 使用嵌套循环时，外部循环先执行一次，然后等待内部循环执行完毕后再继续执行外部循环，这样循环往复，直到外部循环执行完毕后，整个循环结束。
2. Array是一个数组函数，它的参数通常用逗号（,）分隔，对应值的索引从0开始。例如：arrArray("AA","BBB","CC")，则arr(1)的值为数组中的第二个值（即"BBB"）。
3. 如果要查看数组中的对应值，可以点击【视图】，选择【局部窗口】，然后按下【F8】键逐行运行程序，当程序执行到数组的那一行时，就可以在“局部窗口”中展开数组，查看相应的值。

运行VBA程序

无论如何编写代码，运行结果都应该是相同的。你可以尝试运行这个VBA程序，看看它的执行结果。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。