求平均数

zhaozhongbao

请教各位，为什么计算出来的平均数不正确，单元格（3,3）存放平均值，算出来的是1？烦请帮看看这句写的后什么问题吗？见附件Sub 平均数()
Dim i As Integer
Dim a As Double
Dim b As Double
i = Cells(5, 6).End(xlDown)
a = Application.Average(Range(Cells(5, 6), Cells(5, i)))
Cells(3, 3) = a

End Sub

iwangyi

改为
Sub 平均数()
Dim i As Integer
Dim a As Double
Dim b As Double
i = Cells(5, 6).End(xlDown).Row
a = Application.Average(Range(Cells(5, 6), Cells(i, 6)))
Cells(3, 3) = a
End Sub

iwangyi

附件改为******

zhaozhongbao

非常感谢！！！