VBA計算當前工作表中數字的平均值

可以使用以下VBA代码来计算当前工作表中数字的平均值：

Sub CalculateAvg()
    Dim sum As Double
    Dim count As Integer
    Dim cellValue As Variant
    
    sum = 0
    count = 0
    
    For Each cellValue In ActiveSheet.UsedRange
        If IsNumeric(cellValue) Then
            sum = sum + cellValue
            count = count + 1
        End If
    Next cellValue
    
    If count > 0 Then
        MsgBox "Average: " & sum / count
    Else
        MsgBox "No numeric values found."
    End If
End Sub

这个代码将遍历当前工作表中的每个单元格，如果单元格中包含数字，则将其添加到总和中，并计算数字的数量。最后，它将显示平均值或“没有找到数字值”的消息框，具体取决于是否找到数字值。

相关问题

VBA 计算数组的平均值

VBA (Visual Basic for Applications) 是 Microsoft Office 中的一种宏语言，常用于自动化 Excel 工作表的操作。计算数组的平均值在 VBA 中可以使用 `Application.WorksheetFunction.Average` 函数来实现。以下是一个简单的示例：

Sub CalculateAverage()
    Dim myArray() As Double '声明一个双精度数组
    myArray = Array(10, 20, 30, 40, 50) '这里填充你的数据
    
    Dim averageValue As Double
    averageValue = Application.WorksheetFunction.Average(myArray)
    
    Debug.Print "数组 " & Join(myArray, ", ") & " 的平均值是：" & averageValue '打印结果
End Sub

在这个例子中，`Join` 函数用来连接数组元素作为字符串以便于打印。执行该宏后，它会计算并显示数组 `myArray` 中所有数值的平均值。

VBA計算一個工作表的平均值

你可以使用以下的VBA代码来计算一个工作表的平均值：

Sub CalculateAverage()
    Dim sum As Double
    Dim count As Integer
    Dim average As Double
    
    sum = 0
    count = 0
    
    '循环遍历工作表中的每个单元格，并累加总和和计数器的值
    For Each cell In ActiveSheet.UsedRange
        If IsNumeric(cell.Value) Then
            sum = sum + cell.Value
            count = count + 1
        End If
    Next cell
    
    '避免除以0的情况
    If count > 0 Then
        average = sum / count
        MsgBox "平均值为：" & average
    Else
        MsgBox "没有可用于计算平均值的数值。"
    End If
End Sub

这段代码首先声明了3个变量，分别为总和、计数器和平均值。然后，使用 `For Each` 循环遍历工作表中的每个单元格，如果单元格的值为数字，则将其加入总和，并将计数器加1。最后，计算平均值，并使用 `MsgBox` 函数在屏幕上显示结果。注意，这个代码需要在要计算平均值的工作表中运行。