VBA獲取數據範圍除去該數據的首行計算平均值

您可以使用以下代码来获取数据范围并计算平均值（假设数据范围是A2:C10）：

Sub AverageWithoutHeader()

    Dim dataRange As Range
    Dim headerRow As Range
    Dim avgValue As Double
    
    '获取数据范围（不包括标题行）
    Set dataRange = Range("A2:C10")
    
    '获取标题行
    Set headerRow = Range("A1:C1")
    
    '计算平均值
    avgValue = Application.WorksheetFunction.Average(dataRange)
    
    '输出平均值
    MsgBox "平均值为：" & avgValue
    
End Sub

您可以根据需要更改数据范围的位置和大小，并将平均值输出方式更改为您所需的方式。

相关问题

VBA獲取數據範圍大小除去該數據的首行計算平均值

你可以使用以下 VBA 代码来获取数据范围的大小，然后计算平均值（假设数据范围为 A2:G10）：

Sub GetRangeAndAverage()
    Dim dataRange As Range
    Dim numRows As Integer
    Dim numCols As Integer
    Dim dataSum As Double
    Dim dataAvg As Double
    
    '获取数据范围
    Set dataRange = Range("A2:G10")
    '计算行数和列数
    numRows = dataRange.Rows.Count
    numCols = dataRange.Columns.Count
    '计算数据总和
    dataSum = Application.WorksheetFunction.Sum(dataRange)
    '计算平均值
    dataAvg = dataSum / (numRows - 1) '减去首行
    
    '输出结果
    MsgBox "数据范围大小为" & numRows - 1 & "行 x " & numCols & "列。" & vbCrLf & "平均值为：" & dataAvg
End Sub

该代码将输出一个消息框，显示数据范围的大小和平均值。注意，由于数据范围包括首行，所以在计算平均值时需要减去1。

VBA獲取數據範圍除去該數據的首行計算平均值：注意不確定數據範圍

以下是一个VBA代码示例，可以获取当前选定单元格范围的平均值，不包括首行：

Sub CalculateAverage()
    Dim rng As Range
    Dim i As Integer
    Dim sum As Double
    Dim avg As Double
    
    Set rng = Selection
    ' 获取当前选定单元格范围'
    
    For i = 2 To rng.Rows.Count
        sum = sum + rng.Cells(i, 1).Value
        ' 从第二行开始计算总和'
    Next i
    
    If rng.Rows.Count > 1 Then
        avg = sum / (rng.Rows.Count - 1)
        ' 计算平均值，不包括首行'
        MsgBox "平均值为：" & avg
    Else
        MsgBox "无法计算平均值，范围不足两行"
    End If
End Sub

将此代码复制到一个新的模块中，然后在Excel中选择要计算平均值的单元格范围，最后运行此代码。注意，此代码假定选定单元格范围的第一行是标题行或其他非数字行，因此它从第二行开始计算总和和平均值。如果范围不足两行，则无法计算平均值。