Sub 罗列不及格的成员()
Dim i As Integer, j As Integer, rng As Range, arr1, arr2() 'arr2()为指定的动态变量
Set rng = Range([a2], Cells(Rows.Count, 2).End(xlUp)) '复制后直接在内存调用，而不用再到单元格调用，加快运行速度
ReDim arr2(1 To WorksheetFunction.CountIf(rng, "<60"), 1 To 2) '定义动态数组
arr1 = rng.Value
For i = 1 To UBound(arr1) '终止值为数组第一维的上标
    If arr1(i, 2) < 60 Then
    j = j + 1   
     arr2(j, 1) = arr1(i, 1)'提示下标越界
    arr2(j, 2) = arr1(i, 2)

    End If
Next i
    Range("d1:e" & j) = arr2
End Sub
我按照书本上写的，可是arr2(j, 1) = arr1(i, 1)'提示下标越界，不知道问题出在哪里，求大神帮忙，多谢多谢