avg = WorksheetFunction.avg(rng)报错

这个报错可能有多种原因，我们需要更多的上下文信息才能确定问题。

首先，你需要确认 `rng` 变量是一个正确的范围对象，例如：

Set rng = Worksheets("Sheet1").Range("A1:A10")

接下来，你需要确认你的 VBA 项目中已经正确引用了 Microsoft Excel 对象库。在 VBA 编辑器中，可以通过菜单栏中的 `工具` -> `引用` 打开引用对话框，然后勾选 `Microsoft Excel xx.x Object Library` （其中 xx.x 表示你的 Excel 版本号），并点击确定按钮保存更改。

如果以上两个步骤都没有问题，那么你可以尝试使用 `Application.WorksheetFunction.Average(rng)` 代替 `WorksheetFunction.Avg(rng)`，或者使用 `WorksheetFunction.Sum(rng) / rng.Count` 计算平均值。如果问题仍然存在，请提供更多上下文信息以便我们帮助你解决问题。

相关问题

avg = WorksheetFunction.avg(rng)，报错

这个错误可能是因为你没有正确地声明或初始化 rng 变量，或者在代码中没有正确地引用 rng 变量。

请检查一下以下几个方面：

1. 请确保已经正确地声明和初始化了 rng 变量。如果 rng 是一个范围对象，你可以使用以下代码进行声明和初始化：

   Dim rng As Range
   Set rng = Range("A1:A10")

2. 如果你是在 VBA 中使用 avg 函数，请确保已经正确地引用了 WorksheetFunction 对象。正确的方式是：

   Dim avg As Double
   avg = WorksheetFunction.Average(rng)

如果你只是在 Excel 中使用 avg 函数，那么请确保你选择的范围是正确的，并且使用了正确的语法。

如果你的问题仍然存在，请提供更多的代码和错误信息以便我们更好地帮助你解决问题。

Dim rng As Range Dim max As Double Dim min As Double Dim avg As Double Dim count As Integer Dim p1 As Integer Dim p2 As Integer Dim p3 As Integer '获取选定范围 Set rng = Application.Selection '计算最大值、最小值、平均值 max = WorksheetFunction.max(rng) min = WorksheetFunction.min(rng) avg = WorksheetFunction.avg(rng)， avg = WorksheetFunction.avg(rng)报错

这个代码看起来像是 VBA 代码。如果 `avg = WorksheetFunction.avg(rng)` 报错，很可能是因为选定范围中包含了非数值类型的数据，例如文本或日期等。你可以尝试使用 `WorksheetFunction.IsNumber` 函数来过滤掉非数值类型的数据，例如：

Dim cell As Range
For Each cell In rng
    If WorksheetFunction.IsNumber(cell.Value) Then
        count = count + 1
        If cell.Value >= 90 Then
            p1 = p1 + 1
        ElseIf cell.Value >= 80 Then
            p2 = p2 + 1
        ElseIf cell.Value >= 70 Then
            p3 = p3 + 1
        End If
    End If
Next cell

这样就可以避免非数值类型的数据对平均值的计算造成影响。