VBA獲取數據範圍大小，不計算該數據的第一行計算平均值

以下是一个用VBA计算数据范围平均值的例子，其中不计算第一行：

Sub CalculateAverage()
    Dim rngData As Range
    Dim sum As Double
    Dim count As Integer
    
    '获取数据范围
    Set rngData = Range("A2:D10")
    
    '遍历数据范围，计算总和和数量
    For Each cell In rngData
        If cell.Value <> "" Then
            sum = sum + cell.Value
            count = count + 1
        End If
    Next cell
    
    '计算平均值
    Dim average As Double
    average = sum / (count - rngData.Columns.Count + 1)
    
    '输出平均值
    MsgBox ("平均值为：" & average)
End Sub

这段代码假定数据范围为A2:D10，你可以根据实际情况修改代码中的数据范围。

相关问题

VBA自動獲取數據範圍大小，不計算該數據的第一行計算平均值

可以使用VBA的内置函数和语句来实现这个功能。下面是一个示例代码：

Sub CalculateAverage()

    Dim lastRow As Long
    Dim dataRange As Range
    Dim total As Double
    Dim average As Double
    
    '获取数据范围
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set dataRange = Range("A2:A" & lastRow)
    
    '计算平均值
    For Each cell In dataRange
        total = total + cell.Value
    Next cell
    average = total / (lastRow - 1)
    
    '输出结果
    MsgBox "数据范围为：" & dataRange.Address & vbCrLf & "平均值为：" & average
    
End Sub

在代码中，首先使用`Cells`和`End(xlUp)`方法获取最后一行的位置，然后将数据范围设置为从第二行到最后一行的第一列。接着使用`For Each`循环遍历数据范围中的每个单元格，并将其值累加到`total`变量中。最后计算平均值并输出结果。请注意，由于第一行是标题行，因此在计算平均值时要减去1。

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属性获取当前选择区域的数据范围。然后，我们使用循环遍历数据范围中每行数据，从第二行开始计算总和和数量。最后，我们计算平均值并显示在一个消息框中。

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