用VBA数组统计A列平均值

laoau138

用VBA数组统计A列平均值

fjmxwrs

1. Sub test()
   
2.     Dim i%
   
3.     i = Range("A65536").End(xlUp).Row
   
4.     Range("B2") = Application.Average(Range("A1:A" & i))
   
5. End Sub
   

复制代码

fjmxwrs

一定用数组?

1. Sub test()
   
2.     Dim i%, x%, k
   
3.     i = Range("A65536").End(xlUp).Row
   
4.     arr = Range("A1:A" & i)
   
5.     For x = 1 To UBound(arr)
   
6.         k = k + arr(x, 1)
   
7.     Next x
   
8.     Range("B2") = k / UBound(arr)
   
9. End Sub

复制代码