嗨,我正在尝试编写vba,以帮助我将每日数据转换为每周数据。我写了这个vba,但是说unable to get the average property of the worksheetfunction class
。有人可以帮我弄清楚出什么问题了吗?谢谢!
Sub CopyData()
Dim z As Integer
For z = 0 To 2000
Set Rng1 = ActiveSheet.Range("D5:D11").Offset(7 * z, 0)
Range("runningagain").Offset(z, 0) = Application.WorksheetFunction.Average(Rng1)
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
Next z
End Sub
最佳答案
Excel中的平均功能将产生#DIV / 0!如果单元格为空,则错误,因此您需要检查rng1
不为空。
在计算平均值时,最好使用Count而不是CountA
If Application.WorksheetFunction.Count(Rng1) > 0 Then
Range("runningagain").Offset(z, 0) = Application.WorksheetFunction.Average(Rng1)
End If
另外,您可能需要正确定义
Range("runningagain")
,是指Range(runningagain)
吗?