VBA - 创建空数组

使用VBA创建空数组是在编写Excel宏时经常遇到的需求之一。空数组是一种没有任何元素的数组，可以在程序中根据需要动态地添加元素。本文将介绍如何使用VBA创建空数组，并提供一个简单的案例代码来说明其用法。

vba
Dim myArray() As Variant
myArray = Array()

vba
ReDim Preserve myArray(0 To 2)
myArray(0) = "Apple"
myArray(1) = "Banana"
myArray(2) = "Orange"

vba
Sub FilterStudents()
    Dim dataRange As Range
    Dim studentNames() As Variant
    Dim scores() As Variant
    Dim i As Integer
    Dim j As Integer
    
    ' 定义数据范围
    Set dataRange = Range("A2:B10")
    
    ' 获取数据范围的行数
    Dim rowCount As Integer
    rowCount = dataRange.Rows.Count
    
    ' 遍历每一行数据
    For i = 1 To rowCount
        ' 检查分数是否大于90
        If dataRange.Cells(i, 2).Value > 90 Then
            ' 将符合条件的学生姓名添加到数组
            ReDim Preserve studentNames(0 To j)
            studentNames(j) = dataRange.Cells(i, 1).Value
            j = j + 1
        End If
    Next i
    
    ' 输出符合条件的学生姓名
    For i = 0 To UBound(studentNames)
        MsgBox studentNames(i)
    Next i
End Sub