Sub 計(jì)算平均工資（）
Dim n%, sum%
n = 1
sum = 0
Do While Cells（n, 2） <> ""
n = n + 1
If Cells（n, 2）.Value = "生產(chǎn)部" Then
sum = Cells（n, 3）.Value + sum
m = m + 1
End If
Loop
MsgBox "生產(chǎn)部平均值為：" & sum / m
End Sub
之前學(xué)習(xí)知識(shí)的二次應(yīng)用[笑哭]
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。