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` 计算平均值。如果问题仍然存在，请提供更多上下文信息以便我们帮助你解决问题。