ループの回数を取得したい

Question

ABCDEABCDCDCDEABCDCDE

エクセルにて上記のようにカラム名が列んでおり、
A〜Eが一塊、その中で、CDがランダムで繰り返されます。

其々の2行目のセルに、下記条件のループの回数を出力したいです。
1.ABEは全体の範囲内でのループ回数
2.CDは各A〜Eの範囲内でのループ回数

例では以下のような出力結果となります。

ABCDEABCDCDCDEABCDCDE
000001100112212200112

以上のように、「特定の範囲内」でのループ回数を取得したい場合、どのような方法が考えられますでしょうか？

Answer 1

VBAで

ご自身で作成されたコードの提示がないようですので、考え方のアドバイスのみさせていただきます。

まず、今回やりたいことはそれぞれの項目の出現回数のカウントで、ルールが２つあるということですね。
ルール①：A・B・Eは全体の中での出現数をカウント
ルール②：C・DはA～Eの間で出現した回数をカウント

①に関しては単純に全体をループして、それぞれの出現回数を数えてあげればいいです。
②に関しては「A～Eの範囲内での回数」という条件が追加されますので、Aが出現したタイミングでカウンタをリセットしてあげる必要があります。

提示いただいた例では、AB(CD)Eの形で()内は１回以上の繰り返し、という規則的な状態なっているようです。
この規則性が崩れないのであればABEをまとめてカウント、CDもまとめてカウントすればいいと思います。
⇒torisanさん提示の方法

上記の規則性が崩れた場合もカウンタとしては正しく動作させていのであれば、少し面倒ではありますがA～Eをそれぞれ別にカウントしてあげたほうがいいです。
⇒cesolutionさん提示の方法

Excel関数でも

今回はVBAの質問ですので蛇足ではありますが、計算用に３列使えばVBAを利用しなくてもExcel関数で実現できます。

【元データ】
   A B C D E F G H I J K L M N O P Q R S T U V 
----------------------------------------------
1: A B C D E A B C D C D C D E A B C D C D E 
2:
3:
4:

この状態から、以下の固定値・数式を記述します。

【固定値】
A3セル：0
A4セル：0

【数式】
ルール①計算用
A2セル：=IF(OR(A$1="A",A$1="B",A$1="E"),COUNTIF($A$1:A$1,A$1),0)

ルール②計算用
B3セル：=IF(OR(B$1="A",B$1="B",B$1="E"),0,IF(B$1="C",A3+1,A3))
B4セル：=IF(OR(B$1="A",B$1="B",B$1="E"),0,IF(B$1="D",A4+1,A4))

結果表示用
A5セル：=IF(A$1="C",A$3-1,IF(A$1="D",A$4-1,A$2-1))

【入力後の状態】
   A B C D E F G H I J K L M N O P Q R S T U V 
----------------------------------------------
1: A B C D E A B C D C D C D E A B C D C D E 
2: 1
3: 0 0
4: 0 0
5：0

※A3・A4は固定値0
※A2・B3・B4・A5は数式の結果値

上記の状態から、A2セルをB2～U2までコピーします。
同様にB3セルをC3～U3まで、B4セルをC4～U4まで、A5セルをB5～U5までコピーします。

以上の入力で、

【結果データ】
   A B C D E F G H I J K L M N O P Q R S T U V 
----------------------------------------------
1: A B C D E A B C D C D C D E A B C D C D E    ←対象データ
2: 1 1 0 0 1 2 2 0 0 0 0 0 0 2 3 3 0 0 0 0 3    ←ルール①計算
3: 0 0 1 1 0 0 0 1 1 2 2 3 3 0 0 0 1 1 2 2 0    ←ルール②計算("C")
4: 0 0 0 1 0 0 0 0 1 1 2 2 3 0 0 0 0 1 1 2 0    ←ルール②計算("D")
5: 0 0 0 0 0 1 1 0 0 1 1 2 2 1 2 2 0 0 1 1 2    ←計算結果

となり、5行目に目的の値を作成できます。

計算用の３行(2～4行)は高さ０にするなり、邪魔にならない行に移動するなりすれば見た目もOKです。

蛇足の方が長くなってしまいましたが、参考までに。

Answer 2

例から見て、『AB(CDが不定数)E』が並んでいる、と仮定すると、
ABE用の変数、
CD用の変数、を初期値０で設定。

後は、表示後に
Dの時、CD用の変数に１を加算、
Eの時、ABE用の変数に１を加算し、CD用の変数を0にする
だけでいいかと。

質問としては、
ループ中に、if文などで条件を指定しカウントを初期化する(0にする)のがいいかと。
ループ中で初期化を行う位置をよく考えないと
思わぬ値になったりするので気を付けてくださいね。

Answer 3

大きな繰り返しの回数を数えるcounterLと、小さな繰り返しを数えるcounterSを用意して
E→A検出でcounterL++。D→C検出でcounterS++。B→C検出でcounterS=0。
こんな感じにして、ABEはcounterLを。CDはcounterSを出す。という感じでいかがでしょう？

Answer 4

スマートさが欠片もないコードで恐縮ですが、例えば以下のようにすればできるかと思います。
Eを見つけたら、C、Dのカウントは0に戻すようにしています。

Sub loopnumcheck()

With Worksheets("Sheet5")
 Dim a, b, c, d, e, i As Integer
 Dim Cmax As Integer

 a = -1
 b = -1
 c = -1
 d = -1
 e = -1
  Cmax = Cells(1, 1).End(xlToRight).Column

 For i = 1 To Cmax

  Select Case Cells(1, i)
    Case "A"
     a = a + 1
     Cells(2, i) = a
    Case "B"
     b = b + 1
     Cells(2, i) = b
    Case "C"
     c = c + 1
     Cells(2, i) = c
    Case "D"
     d = d + 1
     Cells(2, i) = d
    Case "E"
     e = e + 1
     c = -1
     d = -1
     Cells(2, i) = e
     End Select
 Next
 
End With

End Sub

Comments

[退会済みユーザー]

大変参考になりました。誠にありがとうございます。