Excel 関数かVBAでの解決方法

質問

Excel 関数かVBAでの解決方法

A列に"1" もしくは"2"がランダムで並んでいるとします。B列にその連続回数を表示させるにはどのようにすればよいでしょうか？

例えばA1からA5まで"1"、A6からA8までが"2"、A9～"1"の場合はB1～B5には1～5、B6～B8には1～3、B9には1～と言うように、それぞれの数字の連続回数を示したいのですが・・・かなりの作業列を使う方法しか思いつきません。どうかよろしくお願いします。

回答No.4

tom04 · ベストアンサー

No.3です！
たびたびごめんなさい。

前回の作業列は無しにしてください。

結果のB3セルに数式を入れるだけで大丈夫だと思います。
B2セルは単純に　=IF(A2="","",1)

B3セルに
=IF(A3="","",IF(A3=A2,B2+1,1))
という数式を入れ、フィルハンドルの（＋）マークでダブルクリック、またはオートフィルで下へコピーすれば大丈夫だと思います。

何度も失礼しました。m(__)m

回答No.8

nattocurry

B1には1を入力し、
B2に
=IF(A2=A1,B1+1,1)
を入力し、
B3以降はB2をコピー。

回答No.7

imogasi

VBA向きの問題ですね。
例データ　Ａ列Ａ２から
Ａ２：Ｂ１３
1 1
1 2
1 3
1 4
1 5
2 1
2 2
1 1
1 2
2 1
2 2
2 3
コード　標準モジュールに
Sub test01()
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i - 1, "A") = Cells(i, "A") Then
Cells(i, "B") = Cells(i - 1, "B") + 1
Else
Cells(i, "B") = 1
End If
Next i
End Sub
こんなに簡単。
ーーー
関数でも同じことをやると
Ｄ２に
=IF(A1=A2,D1+1,1)
と入れて下方向に式を複写。
データは第２行目から始めるようにする。

回答No.6

layy

Ａ列１行上の値と今の行が同じなら
「Ｂ列１行上の値＋１」、違えば「１」

Ｂ１：１
Ｂ２：２（Ｂ１の値に＋１）
Ｂ３：３（Ｂ２の値に＋１）
Ｂ４：４（Ｂ３の値に＋１）
Ｂ５：５（Ｂ４の値に＋１）
Ｂ６：１（Ａ５とＡ６が異なるので１）
Ｂ７：２（Ｂ６の値に＋１）

・・・・
そんなに難しく考えなくてもできそうですが・・・。
まず想定される値を埋めてみて、あとから数式を考えるのも手です。
整理してみてください。

回答No.5

keithin

添付図：
B2に　=IF(A1=A2,B1)+1　みたいな？

回答No.3

tom04

こんばんは！
かなり泥臭い方法ですが・・・

↓の画像のようにB列を作業用の列で使っています。

作業列B3セルに
=IF(A2="","",A2)

（元データを1行ずらせて表示させているだけです。）

C2セルは必ず「1」になりますので、最初から「1」を入力しておきます。
そして、C3セルに
=IF(A3="","",IF(A3=B3,C2+1,1))

という数式を入れ、B3・C3セルを範囲指定し、C3セルのフィルハンドルで下へずぃ～～～！っとコピーすると
画像のような感じになります。

以上、かなり無理矢理の方法ですが
参考になれば幸いです。
他に良い方法があれば読み流してくださいね。m(__)m

回答No.2

masa_019

こんにちは。

B1セルに
=COUNTIF(A$1:A1,A1)
これを下にコピーすれば良いかと。

回答No.1

Dahak

（手順１）B1セルに1を入力（※１行目は比較する前行が無いのでここだけは値を手入力）
（手順２）B2セルにセル式「=IF(A1=A2,B1+1,1)」を入力
（手順３）B2セルをコピーし、B3以降必要な行まで貼り付ける