本篇文章將通過實(shí)例演示，在VBA中如何利用數(shù)組來求解表格中大于等于2500的工資的平均值。進(jìn)入VBA編輯界面在Excel工作表中，點(diǎn)擊菜單欄中的【開發(fā)工具】，在其工具欄內(nèi)找到并點(diǎn)擊【Visual Ba

本篇文章將通過實(shí)例演示，在VBA中如何利用數(shù)組來求解表格中大于等于2500的工資的平均值。

進(jìn)入VBA編輯界面

在Excel工作表中，點(diǎn)擊菜單欄中的【開發(fā)工具】，在其工具欄內(nèi)找到并點(diǎn)擊【Visual Basic】。這樣就會進(jìn)入VBA編輯界面。接著點(diǎn)擊菜單欄中的【插入】，選擇【模塊】，會彈出一個(gè)模塊編輯窗口。

輸入代碼并運(yùn)行

在模塊編輯窗口中輸入以下代碼：

```

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的工資并存入數(shù)組arr0中，然后用MsgBox顯示這些工資的平均值。

執(zhí)行代碼并查看結(jié)果

點(diǎn)擊VBA界面中工具欄里的【運(yùn)行】按鈕，代碼將被執(zhí)行。你會立即看到彈出消息框顯示大于等于2500的工資的平均值。這個(gè)實(shí)例展示了如何使用VBA中的數(shù)組來處理數(shù)據(jù)，并進(jìn)行相應(yīng)的計(jì)算。

通過這個(gè)實(shí)例，我們可以看到在VBA中利用數(shù)組來處理數(shù)據(jù)的便捷性和靈活性。數(shù)組是一種非常有用的數(shù)據(jù)結(jié)構(gòu)，能夠幫助我們高效地處理和分析各種數(shù)據(jù)。在實(shí)際工作中，掌握數(shù)組的應(yīng)用將極大地提升我們處理數(shù)據(jù)的效率和準(zhǔn)確性。