Excel中的VBA平均值

我是新来的VBA在Excel中。 我有一个像11000个数字的数据范围。我想要它计算出前60的平均值，然后是60到最后。 我做了一些编程，但没有工作。 那么有人可以帮助我呢。

Sub Hourlyaverage() Dim i As Long, j As Long, k As Long, l As Long, m As Long Sheets("DUT1_Test51_excel").Select i = 3 j = 3 k = 63 Do While Cells(i, 12).Value <> "" l = Cells(i, 12).Value m = Cells(k, 12).Value Cells(j, 20).Value = [Average (l : m)] i = i + 60 j = j + 1 k = k + 60 Loop End Sub 

Answer 1

仔细看看你在这个代码中要做什么：

 l = Cells(i, 12).Value m = Cells(k, 12).Value Cells(j, 20).Value = [Average (l : m)] 

你为l和m分配一个“long”值，然后在平均函数中调用它们，就像它们是对一个单元格的引用一样。

我build议你添加一个范围variables，分配你想要平均的数据的位置 ，并用它作为你的函数参数。

就像是：

 Dim myRange as Range 'Loop code here Set myRange = Range("L" & i & ":L" & k) Cells(j, 20).Value = Application.Average(myRange)