[已解决]不能取得类worksheetfunction的average属性

a314276332

新人求助
代码如下：
Public Sub test()
  For x = 1 To Range("A65536").End(xlUp).Row
  t = 1
    If Cells(x, 5) = "z" Then '
    Cells(x, 5).Interior.ColorIndex = 6 '
    Cells(x, 5) = Application.WorksheetFunction.Average(Range(Cells(t + 4, 5).Address & ":" & Cells(x - 1, 5).Address))
    t = x
    End If
  Next x
End Sub
想用查找的方式找到第5列的“z”，然后在这个单元格利用average函数求得上一段数据的平均平均值。。。然后报错：不能取得worksheetfunction的average属性

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-19 11:09

好吧，看了一下你的数据，大概知道你指的问题是什么了，代码：

1. Public Sub test()
   
2.   t = 1
   
3.   For x = 1 To Range("A65536").End(xlUp).Row
   
4.     If Cells(x, 5) = "z" Then
   
5.     Cells(x, 5).Interior.ColorIndex = 6
   
6.     Cells(x, 5) = Application.WorksheetFunction.Average(Range(Cells(t + 4, 5).Address & ":" & Cells(x - 1, 5).Address))
   
7.     t = x
   
8.     End If
   
9.   Next x
   
10. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

E5和E6两个对象单元格都是空单元格，average出错，其中只要一个单元格有数据就没问题了。

a314276332

大灰狼1976 发表于 2017-7-19 10:16
E5和E6两个对象单元格都是空单元格，average出错，其中只要一个单元格有数据就没问题了。

大佬，不行啊。。。。还是一样报错

大灰狼1976

我试过没问题，附件你试下。

a314276332

大灰狼1976 发表于 2017-7-19 10:32
我试过没问题，附件你试下。

谢谢大佬，但是好像数值又不对了。。。能帮忙矫正一下是哪里错了么

大灰狼1976

你能举个例子，是哪个数据不对吗？
你的数据是由你的代码处理产生的，我并没有对原有逻辑做确认，只解决你提出的问题，所以一般来讲结果只要能顺利输出，错误与否我是不关心的，但是如果简单的话我可以帮你看一下。

大灰狼1976

好吧，看了一下你的数据，大概知道你指的问题是什么了，代码：

1. Public Sub test()
   
2.   t = 1
   
3.   For x = 1 To Range("A65536").End(xlUp).Row
   
4.     If Cells(x, 5) = "z" Then
   
5.     Cells(x, 5).Interior.ColorIndex = 6
   
6.     Cells(x, 5) = Application.WorksheetFunction.Average(Range(Cells(t + 4, 5).Address & ":" & Cells(x - 1, 5).Address))
   
7.     t = x
   
8.     End If
   
9.   Next x
   
10. End Sub

复制代码

a314276332

大灰狼1976 发表于 2017-7-19 11:09
好吧，看了一下你的数据，大概知道你指的问题是什么了，代码：

万分感谢{:25:}