Excelで連続したセルを数値化し合計を出したい

A1からT1のセルに不連続に1(数値)が入力されています。
1と入力されている連続したセルを下記の様に数値化し
その合計をV1に出したいのですがどおすればよいでしょうか？

6～9連続を１ 10～13連続を2 14～17連続を3 18～21連続を4 22連続以上を5

下の画像の場合
B1～H1まで7連続で１が入力されているので１
M1～Q1まで5連続なのでカウントしないので合計で１になります。

No.1 ベストアンサー 回答者： milk_kokoa 回答日時： 2017/04/20 11:32

他のセルを使ってもいいでしょうか？

値は0か1でしょうか？
その前提でｗ

A2=A1
B2=IF(B1=1,A2+B1,0)
※B2→C2～T2にコピー

A3=IF(B2=0,IF(A2<6,0,IF(A2<10,1,IF(A2<14,2,IF(A2<18,3,IF(A2<22,4,5))))),0)
※B3～T3にコピー

V1=SUM(A3:T3)

でいかがでしょうか？

ちなみにA1～T3がセル20個なので、
22連続以上を5　はありえない気がします。

この回答へのお礼

ご回答ありがとうございます。
計算できました！
ちなみに３行使わずに１行に集約させることは難しいでしょうか？
贅沢言ってすみません

お礼日時：2017/04/20 12:49

No.4 回答者： tom04 回答日時： 2017/04/20 13:38

こんにちは！

VBAになりますが一例です。

Sub Sample1()
Dim j As Long, k As Long
Dim cnt As Long, myCnt As Long
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, j) = 1 Then
k = j
Do While Cells(1, k) = 1
cnt = cnt + 1
k = k + 1
Loop
Select Case cnt
Case Is >= 22
myCnt = myCnt + 5
Case Is >= 18
myCnt = myCnt + 4
Case Is >= 14
myCnt = myCnt + 3
Case Is >= 10
myCnt = myCnt + 2
Case Is >= 6
myCnt = myCnt + 1
End Select
cnt = 0
j = k
End If
Next j
MsgBox myCnt
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます。
まだ未熟なものでマクロ使い切れません
参考にさせていただき
チャレンジしたいと思います。

お礼日時：2017/04/20 14:55

No.3 回答者： milk_kokoa 回答日時： 2017/04/20 13:23

No1です＾＾

このシートは1行目しか使いたくない？のであれば、
例えば2行目2行目の列を別シートにしても大丈夫だと思います。

他のシートがあるのもＮＧで、
完全に1行だけでやろうとするとマクロを使う必要があるかと思います。

No.2 回答者： yuji3690 回答日時： 2017/04/20 13:08

No1さんと途中まで同じで、

A3=IF(B2=0,ROUNDDOWN((A2-2)/4,0),0)
とするのはどうでしょう？（同様にコピーしてください）

B2=0ということは、A1も0であるか、A1が1であれば、連続する最後の1である。ということなので、
A2の数字によって加える数字(6~9連続なら1…)を表示する。(A1が0なら0)
という式ですね。

ROUNDDOWN((A2-2)/4,0)というのは、(A2-2)/4の整数部分を計算する関数です。
A2には、その列まで何連続で1があるかを表示しているので、
6連続であれば-2で4となり、4で割ると1なので、整数部分は1となります。
0～5連続であれば(-)0.XXとなるので、整数部分は0です。
整数部分はINTを用いても計算できますが、マイナスの時の切捨て切り上げが逆になるので、ROUNDDOWNにしています。（INTだと-0.25は-1に、ROUNDDOWNだと-0.25は0に、なります）
10連続であれば-2で8となり、4で割って2、整数部分は2となります。
同様に連続が4増えれば表示が1増えるようになっています。
（カウントする数字が4刻みで増える為使えるので、途中で4刻みでなくなる場合は使えません）

この回答へのお礼

ありがとうございます。
４づつ増えているの気づいていただきありがとうございます。
連続で４では無くなる可能性があるのでNo1さんのでやってみます。
本当にありがとうございました。

お礼日時：2017/04/20 14:58