如何在VBA中利用数组求解工资平均值

本篇文章将通过实例演示，在VBA中如何利用数组来求解表格中大于等于2500的工资的平均值。

进入VBA编辑界面

在Excel工作表中，点击菜单栏中的【开发工具】，在其工具栏内找到并点击【Visual Basic】。这样就会进入VBA编辑界面。接着点击菜单栏中的【插入】，选择【模块】，会弹出一个模块编辑窗口。

输入代码并运行

在模块编辑窗口中输入以下代码：

```

Sub 平均工资()

Dim arr0(1 To 99)

arr1 [b12:d18]

For Each rg In arr1

If rg > 2500 Then

n n 1

arr0(n) rg

End If

Next

MsgBox WorksheetFunction.Average(arr0)

End Sub

```

这段代码的功能是找出表格中大于等于2500的工资并存入数组arr0中，然后用MsgBox显示这些工资的平均值。

执行代码并查看结果

点击VBA界面中工具栏里的【运行】按钮，代码将被执行。你会立即看到弹出消息框显示大于等于2500的工资的平均值。这个实例展示了如何使用VBA中的数组来处理数据，并进行相应的计算。

通过这个实例，我们可以看到在VBA中利用数组来处理数据的便捷性和灵活性。数组是一种非常有用的数据结构，能够帮助我们高效地处理和分析各种数据。在实际工作中，掌握数组的应用将极大地提升我们处理数据的效率和准确性。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。