在日常使用excel2010处理数据时，自带函数往往无法满足一些个性化的计算需求，这时我们可以通过vba创建自定义函数，轻松解决特殊计算问题，具体操作步骤如下。

开启开发工具选项卡

默认情况下excel2010的开发工具选项卡是隐藏的，我们需要先手动调出。点击界面左上角的「文件」按钮，在下拉菜单中选择「选项」，打开excel选项窗口后，点击左侧的「自定义功能区」选项，在右侧主选项卡的列表中，找到「开发工具」复选框并勾选，点击「确定」后，开发工具就会固定显示在顶部菜单栏中。

进入vba编辑器插入模块

完成开发工具调出后，点击顶部菜单栏的「开发工具」选项，找到并点击「visual basic」按钮，也可以直接按下快捷键「alt+f11」快速进入vba编辑器。在vba编辑器左侧的「工程-vbaproject」面板中，右键点击当前工作簿名称，在弹出的菜单中依次选择「插入」-「模块」，注意这里要选择普通模块，不要选择类模块，否则自定义函数无法正常在单元格中调用。

编写自定义函数代码

插入模块后，双击刚插入的模块打开代码编辑窗口，就可以编写自定义函数了。我们以竞赛打分常用的「去掉最高分、最低分后计算平均分」为例，写一个实用的自定义函数，代码如下：

function 裁分平均分(rng as range) as double

dim cell as range, total as double, maxv as double, minv as double, num as integer

total = 0: num = 0: maxv = 0: minv = 100000

for each cell in rng

if isnumeric(cell.value) then

total = total + cell.value

if cell.value > maxv then maxv = cell.value

if cell.value < minv then minv = cell.value

num = num + 1

end if

next

if num > 2 then

裁分平均分 = (total - maxv - minv) / (num - 2)

else

裁分平均分 = 0

end if

end function

编写完成后检查代码格式，确认无误后点击保存按钮即可。

调用保存自定义函数

关闭vba编辑器回到excel界面，自定义函数就可以正常使用了，调用方法和普通内置函数完全一致：在空白单元格输入「=裁分平均分(a1:a10)」（括号内替换为你需要计算的单元格区域），按下回车就能得到计算结果。需要注意的是，包含自定义函数的工作簿不能保存为普通xlsx格式，需要保存为「excel 启用宏的工作簿(*.xlsm)」格式，下次打开文件时要点击启用宏内容，才能正常使用自定义函数。如果需要在所有工作簿中调用该函数，还可以将文件保存为加载宏格式，实现全局调用。

免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。