VBA用這個CurrentRegion數據範圍大小，不計算該數據的第一行計算平均值

可以使用VBA中的CurrentRegion属性来获取数据范围，然后计算平均值。

以下是一个示例代码：

Sub CalculateAverage()
    Dim dataRange As Range
    Dim total As Double
    Dim count As Integer
    
    '获取当前选择区域的数据范围
    Set dataRange = Selection.CurrentRegion
    
    '循环遍历每一行数据，从第二行开始计算总和和数量
    For i = 2 To dataRange.Rows.Count
        total = total + dataRange.Cells(i, 1).Value '假设数据在第一列
        count = count + 1
    Next i
    
    '计算平均值
    Dim average As Double
    If count > 0 Then
        average = total / count
        MsgBox "平均值为：" & average
    Else
        MsgBox "没有数据"
    End If
End Sub

在这个示例中，我们首先使用Selection.CurrentRegion属性获取当前选择区域的数据范围。然后，我们使用循环遍历数据范围中每行数据，从第二行开始计算总和和数量。最后，我们计算平均值并显示在一个消息框中。

注意，这个示例假设数据在第一列，你需要根据你的具体情况进行调整。