[已解决]求第一列相同的后面列的平均值(请教大家)

marinehua · 发表于 2008-12-11 12:18

如果第一列值相同,那么从第4列开始平均,其实每天就6个时间段,所以就是6个一平均,但是程序写出来不能运行,也不报错,哪位gg帮我看看

Sub 平均()

j = 2
m = 2
n = 1
sign = 123

While Sheet1.Cells(j, 1).Value <> ""
   If Sheet1.Cells(j, 1).Value = sign Then
   Sheet2.Cells(m, n + 3) = Application.WorksheetFunction.Sum(Range(Sheet1.Cells(j, n + 3).Value, Sheet1.Cells(j + 5, n + 3).Value)) / 6
     n = n + 1
   Else
     j = j + 6
     m = m + 1
     n = 1

End If
sign = Sheet1.Cells(j, 1)
   Wend

End Sub

写出来的后好像不能运行,不知道为什么,详细请见附件

2HELMHWm.rar (14.61 KB, 下载次数: 10)

marinehua · 发表于 2008-12-11 12:47

大家都吃饭去了吗

excel-lch · 发表于 2008-12-11 12:48

没讲清楚，没看明白！

marinehua · 发表于 2008-12-11 13:00

简单说就是把第一列(日期)相同的后面每列做平均

例如第一列等于20081007有6个值,那么就它后面的D列(无线接入性)的6个值平均.

说明白了吗?

marinehua · 发表于 2008-12-11 13:04

就是第一列相同的,后面每列的值相加平均(从D列开始)

例如:A列等于20081007的有6个,那么就把D列的这6个值相加平均,放到sheet2中,后面每列都这么超作.

我说清楚了吗???

marinehua · 发表于 2008-12-11 14:34

为什么没有人呀,版主呢?

搁浅2008 · 发表于 2008-12-11 17:19

CCCJHV1z.rar (19.2 KB, 下载次数: 52)

david4119 · 发表于 2008-12-11 17:25

VBA，不懂啊，学习一下

Sunshine小强 · 发表于 2013-11-14 13:19

学习看一下,长知识

		自动登录	找回密码
密码			注册