vba数组求平均值问题

答案:3 悬赏:30

解决时间 2021-01-16 21:03

提问者网友：记得曾经
2021-01-15 22:03

vba数组求平均值问题

最佳答案

二级知识专家网友：独钓一江月
2021-01-15 22:57

Private Sub Average(arr() As Double)
    Dim i As Long, j As Long, Sum As Double
    For i = 1 To 13
        For j = 1 To 10
            Sum = Sum + arr(i, j)
        Next
        arr(i, 11) = Sum / 10
    Next
End Sub该代码经测试通过。

全部回答

1楼网友：大漠
2021-01-16 00:44

依旧可以用excel的内置函数average函数，用法是
Application.WorksheetFunction.Average或者WorksheetFunction.Average都是可以的。

2楼网友：一秋
2021-01-16 00:18

如果一定要用平均函数的话，可以使用WorksheetFunction.Average(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8), arr(i, 9), arr(i, 10))Sub test10()
    Dim arr(1 To 13, 1 To 11) As Double
    Dim i As Integer, j As Integer

    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2) - 1
            arr(i, j) = i + j
            Cells(i, j) = arr(i, j)'可视化验证
        Next j
        arr(i, 11) = WorksheetFunction.Average(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8), arr(i, 9), arr(i, 10))
        Cells(i, j) = arr(i, 11)'可视化验证
    Next i

End Sub
其实如果仅仅想得到结果，采用qq2298511336就很好。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！