VBA 循环遍历单元格范围失败

循环遍历单元格范围是在VBA中经常使用的一种操作，它可以帮助我们快速地处理大量的数据。然而，有时候我们可能会遇到循环遍历单元格范围失败的情况，导致我们无法正确地进行数据处理。本文将探讨这个问题，并提供解决方案。

Dim rng As Range
Set rng = Range("A1:A10")
Dim cell As Range
For Each cell In rng
    '处理每个单元格的数据
Next cell

Dim rng As Range
Set rng = Range("B1:B1")
Dim cell As Range
For Each cell In rng
    If Not IsEmpty(cell) Then
        '处理每个非空单元格的数据
    End If
Next cell

Sub CalculateAverage()
    Dim rng As Range
    Set rng = Worksheets("成绩").Range("A2:B6") '假设有5个学生的数据，从A2到B6
    Dim cell As Range
    For Each cell In rng
        If Not IsEmpty(cell.Offset(0, 1)) Then '判断成绩单元格是否为空
            Dim average As Double
            average = WorksheetFunction.Average(cell.Offset(0, 1)) '计算平均分
            cell.Offset(0, 2).Value = average '将平均分写入相邻的单元格
        End If
    Next cell
End Sub