请高手们给写个数据统计的公式----谢谢了----（已解决）

哭泣的数字

统计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是要统计的结果，如果还有不明白的可以跟帖问我
知道又要给老师们添麻烦，不是一句“谢谢”就能表达我的感谢的，只有祝好人好运了！！！
------------------------------------------------------------------------------------------------------------------
统计公式.rar (22.42 KB, 下载次数: 14)

2010-1-22 13:00 上传

点击文件名下载附件

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

wddn

是这样吗？

davidhawk

自定义函数:
语法:  =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 <> "&iexcl;&iuml;" And li Then
    li = False
    If lian = jixing Then s = s + 1
    lian = 0
  End If
Next
xing = s
End Function

wangg913

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

不是吧,我按照同行连星计算的.............

davidhawk

还好,不管行列我的自定义函数都可以用.....

wangg913

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

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

wangg913

知道了，估计是为了右拉的方便。
最后没有右拉，没有改回来而已。

wangg913

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

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

哭泣的数字

原帖由 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连星时就不好使了。