ExcelHome技术论坛

标题: 请高手们给写个数据统计的公式----谢谢了----（已解决） [打印本页]

作者: 哭泣的数字 时间: 2010-1-22 13:00
标题: 请高手们给写个数据统计的公式----谢谢了----（已解决）
统计A:T区域每行共有多少个连续2星，连续3星，连续4星，连续5星，连续6星，连续7星。
这里所说的连续星是指同一列上下的连续，如B3=★,B4=★ 是2连星，B5=★时则是3连星，
依次类推B6=★ B7=★ B8=★ 则是6连星了。如果只是A3=★ B4=★ 则不算连星。
如果B3=★,B4=★，B5=★ 则统计时V5就不能再加B列的2连星这个数了，因为它应该算做
W5里的3连星了，其他依次类推
如果是单列统计然后再把所有的列统计的数字相加我自己会编辑公式，但那样一是太麻烦，
二是由于我实际的图表有几百列的数据，每列都编辑6个公式来统计，图表也太大了，所以
请老师们给编辑个一次性的统计公式。
附件图表里的V:AA是要统计的结果，如果还有不明白的可以跟帖问我
知道又要给老师们添麻烦，不是一句“谢谢”就能表达我的感谢的，只有祝好人好运了！！！
------------------------------------------------------------------------------------------------------------------
(, 下载次数: 14)

[ 本帖最后由哭泣的数字于 2010-1-22 16:39 编辑 ]

作者: wddn 时间: 2010-1-22 13:43
是这样吗？

作者: davidhawk 时间: 2010-1-22 13:53
自定义函数:
语法:  =xing(区域,几星)
代码:
Function xing(target As Range, jixing As Integer) As Integer
Dim i, lian, s As Integer
Dim li As Boolean
li = False
For Each a In target
  If a.Value = "¡ï" And Not (li) Then
li = True
lian = lian + 1
  ElseIf a.Value = "¡ï" Then
lian = lian + 1
  End If
  If a.Value <> "¡ï" And li Then
li = False
If lian = jixing Then s = s + 1
lian = 0
  End If
Next
xing = s
End Function

作者: wangg913 时间: 2010-1-22 14:00
v2=SUMPRODUCT(N(COUNTIF(OFFSET(OFFSET($A2,,,,COLUMN(B1)),,ROW(INDIRECT("1:"&20-COLUMN(A1)))-1),"★")=COLUMN(B1)))
上市不对，以为是同行连星。

[ 本帖最后由 wangg913 于 2010-1-22 14:02 编辑 ]

作者: davidhawk 时间: 2010-1-22 14:29
不是吧,我按照同行连星计算的.............

作者: davidhawk 时间: 2010-1-22 14:30
还好,不管行列我的自定义函数都可以用.....

作者: wangg913 时间: 2010-1-22 14:32

原帖由 wddn 于 2010-1-22 13:43 发表

为什么不这么做？
v3=SUM(N(MMULT(10^{2,1,0},--($A1:$T3="★"))=11))

作者: wangg913 时间: 2010-1-22 14:33
知道了，估计是为了右拉的方便。
最后没有右拉，没有改回来而已。

作者: wangg913 时间: 2010-1-22 14:43

原帖由 davidhawk 于 2010-1-22 14:29 发表
不是吧,我按照同行连星计算的.............

不是说你，是说我自己的公式。

作者: 哭泣的数字 时间: 2010-1-22 16:38

原帖由 wangg913 于 2010-1-22 14:32 发表

为什么不这么做？
v3=SUM(N(MMULT(10^{2,1,0},--($A1:$T3="★"))=11))

不好意思急事出去了一下，非常感谢楼上各位老师！wddn老师的公式是非常好的。
wangg913老师的这个v3=SUM(N(MMULT(10^{2,1,0},--($A1:$T3="★"))=11)) 公式
到4连星时就不好使了。

作者: qangsheng 时间: 2010-1-22 17:23
保存了再说

作者: wangg913 时间: 2010-1-22 17:59
w版
的公式实际上可以简化。

作者: 哭泣的数字 时间: 2010-1-22 19:18

原帖由 wangg913 于 2010-1-22 17:59 发表
w版
的公式实际上可以简化。

再次感谢wangg913老师的用心！！！

欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/)