[[20150417100923]]　『連続しているデータの連続数を個別に数えたい』（acculi）　ページの最後に飛ぶ

『連続しているデータの連続数を個別に数えたい』（acculi）

３年間の業績に応じて１００００件の顧客を独自にランク分けしています。
ランクは毎月業績に応じて変更され、行数は１００００行近くあります。

　　　　Ａ　　　　　　　　Ｂ　　　　　　Ｃ　　　　　Ｄ　　　　　　Ｅ　　　　　　Ｆ　
　　　2012.4月　　2012.5月　2012.6月　2012.7月　　2012.8月　2012.9月　

１　　ランク１　　　ランク１　　ランク１　　ランク１　　ランク１　　ランク１

２　　ランク２　　　ランク２　　ランク１　　ランク１　　ランク１　　ランク１

３　　ランク１　　　ランク１　　ランク２　　ランク１　　ランク１　　ランク１

４　　ランク２　　　ランク２　　ランク２　　ランク３　　ランク３　　ランク１

５　　ランク１　　　ランク３　　ランク１　　ランク１　　ランク１　　ランク１

６　　ランク２　　　ランク２　　ランク２　　ランク３　　ランク１　　ランク１

・・・と上記のようなデータが３年分３６列、１００００行近く続きます。
件数をカウントし各行の３７（ＡＫ）列目以降にランク１の連続している月数を
表示させたいのですが、困っているのは３行目のようにランク１が途切れて、
再度復活する場合です。
この場合には３７（ＡＫ３）列目に「２」、３８（ＡＬ３）列目に「３」と
表示させたいのです。
同様に３年間３６列のデータで昇格降格を繰り返す場合には、
３７・３８・３９列というように各行のランク１のそれぞれの連続月数を
表示させたいです。
最終的な目的はランク１の連続寿命を知りたいということと、
２か月連続、３か月連続、４か月連続・・と連続月数ごとに構成比を出したいです。

ご教授のほどよろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Sub test()
    Dim i As Long
    Dim j As Long
    Dim jMax As Long
    Dim ip As Long
    Dim iFlag As Long
    Dim iDim() As Long

    jMax = Cells(1, Columns.Count).End(xlToLeft).Column

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        ip = 0
        iFlag = 0
        ReDim iDim(0)
        For j = 1 To jMax
            If Cells(i, j).Value = "ランク１" Then
                If iFlag = 1 And 0 < iDim(ip) Then
                    ip = ip + 1
                    ReDim Preserve iDim(ip)
                End If
                iDim(ip) = iDim(ip) + 1
                iFlag = 0
            Else
                iFlag = 1
            End If
        Next j
        Cells(i, "AK").Resize(, ip + 1) = iDim
    Next i
 End Sub
（???） 2015/04/17(金) 10:56

???様　ありがとうございました。完璧に出来上がりました。
１００００件を1件ずつ見るしかないかと思い、ぞっとしてました。
本当にありがとうございました。
（acculi） 2015/04/17(金) 11:12

 数式で。

 AK1 =IFERROR(INDEX(FREQUENCY(COLUMN($A1:$AK1),($A1:$AJ1<>"ランク１")*COLUMN($A1:$AJ1))-1,SMALL(INDEX((FREQUENCY(COLUMN($A1:$AK1),($A1:$AJ1<>"ランク１")*COLUMN($A1:$AJ1))<3)*10^16+ROW($A$1:$A$37),),COLUMN(A1))),"")

 右、下へコピー。
　
（GobGob） 2015/04/17(金) 13:38

コメント返信：

[ 一覧(最新更新順) ]

[[20150417100923]] 『連続しているデータの連続数を個別に数えたい』（acculi） ページの最後に飛ぶ

[[20150417100923]]　『連続しているデータの連続数を個別に数えたい』（acculi）　ページの最後に飛ぶ