在阵列中找到值的平均值(Excel VBA)

Question

如何找到Excel VBA中2D数组中持有的值的平均值？我有一个名为"数字"的数组，该数组的值为1,2,3,4,6，我如何将平均值输入到名为numbernave的值

Answer 1

应用程序。

Dim numbers As Variant, NumbersAve As Double
'by rows
Range("A1") = 1
Range("A2") = 2
Range("A3") = 3
Range("A4") = 4
Range("A5") = 6
numbers = Range("A1:A5").Value2
Debug.Print LBound(numbers, 1) & " to " & UBound(numbers, 1) & ", " & _
            LBound(numbers, 2) & " to " & UBound(numbers, 2)  '<~~ 1 to 5, 1 to 1
NumbersAve = Application.Average(numbers)
Debug.Print NumbersAve                   '<~~ 3.2
'by columns
Range("A1") = 1
Range("B1") = 2
Range("C1") = 3
Range("D1") = 4
Range("E1") = 6
numbers = Range("A1:E1").Value2
Debug.Print LBound(numbers, 1) & " to " & UBound(numbers, 1) & ", " & _
            LBound(numbers, 2) & " to " & UBound(numbers, 2)  '<~~ 1 to 1, 1 to 5
NumbersAve = Application.Average(numbers)
Debug.Print NumbersAve                   '<~~ 3.2