VBA Excel - 使用单个变量将多个值分配给数组

使用单个变量将多个值分配给数组是在VBA Excel中常见的任务。这种方法可以帮助我们更有效地处理数据，并提高代码的可读性和可维护性。在本文中，我们将学习如何使用VBA代码将多个值分配给数组，并给出一些实例来说明这个过程。

vba
Sub AssignValuesToArray()
    Dim values As String
    Dim arr() As String
    Dim i As Integer
    
    '将多个值分配给变量
    values = "Apple, Banana, Orange, Mango"
    
    '将变量的值分割为多个部分，并将每个部分分配给数组的不同元素
    arr = Split(values, ", ")
    
    '循环遍历数组并输出每个元素的值
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

vba
Sub AssignStudentNamesToArray()
    Dim names As String
    Dim studentNames() As String
    Dim i As Integer
    
    '将学生姓名分配给变量
    names = "John, Jane, David, Sarah"
    
    '将变量的值分割为多个部分，并将每个部分分配给数组的不同元素
    studentNames = Split(names, ", ")
    
    '循环遍历数组并输出每个学生姓名
    For i = LBound(studentNames) To UBound(studentNames)
        Debug.Print studentNames(i)
    Next i
End Sub