エクセルの連勝と連敗をカウントする方法

質問

• エクセルでEからLまでの得点が入っている場合、続いたプラスの数とマイナスの数をカウントする関数式の方法を教えてください。
• A列にはプラスの続いた数を、B列にはマイナスの続いた数を表示する関数式が必要です。
• 例えば、EからLまでの得点が[5, 1, 2, 3, 4, 5, -1, 2, 3]の場合、A列には[5, 1, 2, 3, 4, 5]が表示され、B列には[1, 0, 0, 0, 0, 0]が表示されます。

回答No.7

imogasi

連を数えるのはエクセル関数は苦手のように思う。
其れでVBAでやってみた。
どれだけ（何回）各人が勝ちや負けが込んだ（続いた）のか、見る表になっていると思う。
内容はE-L列で、プラス数とマイナスの連続スパン数の大きいものを計算してA,B列に挙げている。
例データ
A1:L４　なお－は左寄せ表示防止のためいれたもの。本当は空白セルです
5 1 - - 1 2 3 4 5 -1 2 3
3 3 - - 3 -1 2 3 2 -1 -1 -2
1 4 - - -1 -2 -3 4 -1 -1 -1 -2
7 1 - - -3 3 4 5 4 4 5 3
標準モジュールに
Sub test01()
d = Range("E65536").End(xlUp).Row
For i = 1 To d
pmax = 0
mmax = 0
If Cells(i, "E") >= 0 Then 'E列について
maesgn = "p"
p = 1
m = 0
Else
maesgn = "m"
p = 0
m = 1
End If
'--
For j = 6 To 12 'F列からL列へ
Select Case maesgn
Case "p"
If Cells(i, j) >= 0 Then
p = p + 1
Else
maesgn = "m"
pmax = WorksheetFunction.Max(pmax, p)
p = 0
m = 1
End If
'--
Case "m"
If Cells(i, j) < 0 Then
m = m + 1
Else
maesgn = "p"
mmax = WorksheetFunction.Max(mmax, m)
p = 1
m = 0
End If
End Select
Next j
pmax = WorksheetFunction.Max(pmax, p)
Cells(i, "A") = pmax
mmax = WorksheetFunction.Max(mmax, m)
Cells(i, "B") = mmax
Next i
End Sub
ｐ、ｍはそのときのプラスとマイナスの続き数、反転すると０にする。
pmax,mmaxはそれぞれの反転時間でのプラスとマイナス数の続き数
ーーーー
結果は上記A,B列
A列はプラスの連続の最大の連続スパン
B列はマイナスの数の最大の連続スパン
例えば２行目は
プラスは
３
２３２
の続きがあり、多いほうの数３
マイナスは
－１
－１－１－２
の多いほうの３
のように考えた。
ーー
問題の主旨を誤解していたら無視してください。
ただその場合は質問表現に問題あると思うが。
関数では相当難しいとおもったので。関数式では初心者中級者には理解が難しい式の組み合わせになりがちだから。
VBAでは考え付きやすいロジックで、それを素直にコードにしただけ（でもこちらも初心者は無理でVBAやプログラムの慣れがいると思うが）
もっと簡単な少ない行数のコードもあるかもしれないが。

お礼

回答ありがとうございます。VBAでのやり方、参考にさせていただきたいと思います。