嗨,我正在尝试编写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)吗?

09-11 06:25
查看更多