【Excel VBA编程】批量普通类型数据如何实现“引用”效果?

Sub MainPro()    ' 定义并初始化一个数组    Dim ScoreArray() As Variant    Dim ws As Worksheet    Dim lastRow As Long    Dim ScoreRange As Range    Set ws = ActiveSheet    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row    Set ScoreRange = ws.Range("C2:E" & lastRow) '默认第一行是标题    ScoreArray = ScoreRange.Value    ' 将数组传递给函数    Call IsLevel(ScoreArray)    Call IsPassed(ScoreArray)    ScoreRange.Value = ScoreArray  '结果一次输入到工作表End Sub

Sub IsLevel(LevelArray As Variant) ' 数组参数隐式或显式ByRef    Dim i As Long    Dim score As Double    ' 遍历数组的每一行（第一维）    For i = LBound(LevelArray, 1) To UBound(LevelArray, 1)        ' 确保第1列有值且为数值类型        If IsNumeric(LevelArray(i, 1)) Then            score = LevelArray(i, 1)            ' 根据分数范围，为第2列等级赋值            If score > 85 Then                LevelArray(i, 2) = "A"            ElseIf score >= 60 Then                LevelArray(i, 2) = "B"            Else                LevelArray(i, 2) = "C"            End If        Else            ' 如果第1列不是有效数字，可以将第2列置空或标记为错误            LevelArray(i, 2) = "N/A"        End If    Next iEnd Sub

Sub IsPassed(PassedArray As Variant) ' 数组参数隐式或显式ByRef    Dim i As Long    Dim score As Double    ' 遍历数组的每一行（第一维）    For i = LBound(PassedArray, 1) To UBound(PassedArray, 1)        ' 确保第1列有值且为数值类型        If IsNumeric(PassedArray(i, 1)) Then            score = PassedArray(i, 1)            ' 根据分数范围，为第3列合格赋值            If score >= 60 Then                PassedArray(i, 3) = "合格"            Else                PassedArray(i, 3) = "不合格"            End If        Else            ' 如果第1列不是有效数字，可以将第3列置空或标记为错误            PassedArray(i, 1) = "N/A"        End If    Next iEnd Sub