VBA Excel 中循环遍历特定列的已使用范围

在VBA Excel中，我们经常需要对特定列的已使用范围进行循环遍历。这可以帮助我们快速处理和分析大量数据。本文将介绍如何使用VBA代码来实现这一功能，并提供一个实际案例作为示例。

vba
Sub LoopThroughColumn()
    Dim lastRow As Long
    Dim avgGrade As Double
    Dim totalGrade As Double
    Dim count As Integer
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 初始化总成绩和计数器
    totalGrade = 0
    count = 0
    
    ' 循环遍历成绩列
    For i = 2 To lastRow
        ' 假设成绩列为C列，可以根据具体情况进行修改
        totalGrade = totalGrade + Cells(i, "C").Value
        count = count + 1
    Next i
    
    ' 计算平均成绩
    avgGrade = totalGrade / count
    
    ' 输出平均成绩
    MsgBox "平均成绩为：" & avgGrade
End Sub