在日常生活或者工作中，大家经常需要计算一些数值的平均值，并且需要重复这个过程多次。在Excel中，我们可以通过使用内置的“average”函数快速地完成这个任务。但有时候，我们可能需要计算其他自定义的平均值，例如去掉最高分或最低分后的平均值，这时候我们就需要自己编写“average”函数了。

本文将围绕“average”函数展开讨论，通过实例来说明如何编写自定义的“average”函数，以便更好地解决实际问题。

一、“average”函数简介

“average”函数是Excel中最常用的函数之一，表示对一组数据求取平均值。这个函数通常的语法为：

=average(number1,[number2],...）

其中number1、number2等表示要计算平均值的数字或数字区域。例如，我们可以通过如下命令计算A1:A5这个区域中的平均值：

=average(A1:A5)

Excel还提供了其他形式的“average”函数，例如“averageif”和“averageifs”，这两个函数可以根据指定的条件对数字进行筛选再计算平均值。

二、自定义“average”函数的实现方法

在某些情况下，我们需要计算自定义的平均值，例如去掉最高分或最低分后的平均值。

为了解决这一问题，我们需要编写自定义的“average”函数。具体实现方法如下：

1. 打开Excel工作簿，然后按下“Alt”和“F11”按键，打开VB编辑器。

2. 在VB编辑器中，选择“Insert”->“Module”，然后在新的编辑框中输入如下代码：

Function MyAverage(arr As Range, Optional flag As Integer = 0) As Double

‘定义函数的名称和参数

Dim Sum As Double

Dim i As Long

Dim len As Integer

len = arr.Count

‘arr.Count用来计算范围内数字的数量

If flag = 0 Then

‘如果flag=0，表示计算一般的平均值

For i = 1 To len

Sum = Sum + arr(i)

Next i

MyAverage = Sum / len

ElseIf flag = 1 Then

‘如果flag=1，表示去掉最大值求平均值

arr.Sort

Sum = WorksheetFunction.Sum(arr(1).Resize(len - 1))

MyAverage = Sum / (len - 1)

ElseIf flag = 2 Then

‘如果flag=2，表示去掉最小值求平均值

arr.Sort

Sum = WorksheetFunction.Sum(arr(2).Resize(len - 1))

MyAverage = Sum / (len - 1)

End If

End Function

上述代码包含了一个名为“MyAverage”的自定义函数，它可以根据第二个参数的不同值来计算不同的平均值。具体来说，当flag=0时，函数将计算所有数字的普通平均值；当flag=1时，函数将去掉最大值再计算平均值；当flag=2时，函数将去掉最小值再计算平均值。

3. 保存代码并返回Excel界面。在单元格中输入“=MyAverage(A1:A5,1)”（假设需要去掉最大值再计算平均值），得到如下结果：

4. 通过更改第二个参数的值来计算不同种类的平均值。

三、总结

本文介绍了如何通过自定义“average”函数来计算不同种类的平均值，从而更好地解决实际问题。自定义函数是Excel的一个强大功能，可以帮助我们更高效地处理数据，提高工作效率。当然，对于不同的应用场景，还需要进一步了解其他自定义函数的实现方法，以方便更好地解决实际问题。