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。