VBA - 范围对象在循环中仅设置一次

使用VBA编程在Excel中进行数据处理时，经常需要循环遍历范围对象来对每个单元格进行操作。然而，在某些情况下，我们只希望在循环的开始时设置一次范围对象，而不是每次迭代都重新设置。本文将介绍如何在VBA中实现这一目标，并提供一个案例代码来说明。

Sub CalculateTotalScore()
    Dim studentRange As Range
    Dim studentCell As Range
    Dim totalScore As Integer
    ' 设置学生姓名范围
    Set studentRange = Range("A2:A10")
    ' 循环遍历学生姓名范围
    For Each studentCell In studentRange
        ' 重置总分
        totalScore = 0
        ' 计算每个学生的总分
        ' 假设成绩范围为B2:C10，其中B列为数学成绩，C列为英语成绩
        totalScore = totalScore + studentCell.Offset(0, 1).Value ' 加上数学成绩
        totalScore = totalScore + studentCell.Offset(0, 2).Value ' 加上英语成绩
        ' 将总分存储在D列
        studentCell.Offset(0, 3).Value = totalScore
    Next studentCell
End Sub

Sub CalculateTotalScoreOptimized()
    Dim studentRange As Range
    Dim studentData As Variant
    Dim totalScores() As Integer
    Dim i As Integer
    ' 设置学生姓名范围
    Set studentRange = Range("A2:A10")
    ' 将学生姓名范围加载到数组中
    studentData = studentRange.Value
    ' 调整总分数组的大小
    ReDim totalScores(1 To UBound(studentData, 1))
    ' 循环遍历学生姓名范围
    For i = 1 To UBound(studentData, 1)
        ' 重置总分
        totalScores(i) = 0
        ' 计算每个学生的总分
        ' 假设成绩范围为B2:C10，其中B列为数学成绩，C列为英语成绩
        totalScores(i) = totalScores(i) + studentData(i, 1).Offset(0, 1).Value ' 加上数学成绩
        totalScores(i) = totalScores(i) + studentData(i, 1).Offset(0, 2).Value ' 加上英语成绩
    Next i
    ' 将总分存储在D列
    Range("D2:D10").Value = Application.Transpose(totalScores)
End Sub