Excel 条件を判別してオートナンバー

質問

下記のようなシートがある場合
　　A　　B　　
１　１
２　１
３　１
４　２
５　２
６　２

A列を判定してB列に以下のようにナンバーをふりたい。
　　A　　B　　
１　１　　１
２　１　　２
３　１　　３
４　２　　１
５　２　　２
６　２　　３

関数、VBAどちらでもいいのでご教授願います。

回答No.4

mzon · ベストアンサー

皆さんの回答に少し足すことで可能です。

B1は先頭なのでAがあるか確認するだけなので、「=IF(A1="","",1)」とします。
B2以降は=IF(A3="","",IF(A3=A2,B2+1,1))となります。

VBAでコードを記述する場合は下記のように、コードを記述することで、式を埋め込めます。
（直接値を編集してもいいでしょうどね）
－－－－ボタンをおした時に列５０まで式を埋め込む例－－－－
Private Sub CommandButton1_Click()
Dim objRange As Range

Set objRange = Me.Range("A1")
Do Until objRange.Row > 50
If objRange.Row = 1 Then
objRange.Offset(0, 1).Value = "=IF(A" & CStr(objRange.Row) & "="""","""",1)"
Else
objRange.Offset(0, 1).Value = "=IF(A" & CStr(objRange.Row) & "="""","""",IF(A" & CStr(objRange.Row) & "=A" & CStr(objRange.Row - 1) & ",B" & CStr(objRange.Row - 1) & "+1,1))"
End If
Set objRange = objRange.Offset(1, 0)
Loop
Set objRange = Nothing
End Sub

お礼

大変参考になりました。
おかげさまで問題の解決ができました。
ありがとうございます。

回答No.7

mar00

セルB1に1を入力して
セルB2に=IF(A2=A1,B1+1,1)
あとは数式をコピーすれば出来ると思います。

回答No.6

layy

関数というより数式？

＞A列はソートまで完了している段階です。
といいつつ
＞・A列に数値がない場合はB列に対してなにもしない
というのはどうか？。
値が無くなったら最終行では？、
もしくは、途中に文字でもあるか？。

＞・A列に数値が入ってる場合にB列にNoを入れたい
＞かつ
＞・A列が同じ数値の場合はB列はNoを１から順番に入れたい

ＶＢＡでというからには多少の知識はあるとみたが、
この何がわからないのか、わからない。
カウントすることと前行との比較、他なんだろう？。

数式や関数でなくＶＢＡでセル１つずつ判定を行ないたいのなら、
コントロールブレイクや順位付け、ソート、これらを学ぶ。

仕様＝質問であるので、
省略しすぎないできちんと意図を伝えることも大事。
だからと言ってすべてを質問で教える必要はない、
要点だけのやりとり（＝意図だけ）でもわかる人にはわかる。

回答No.5

imogasi

質問の書き方が不完全。ないしは例が少なすぎるか、読者がどう取るか想像力の欠如。
A列の値（例えば１）がまた第3行より下で、あとで出現するのかどうか。
また途切れて後に、１の続きの塊が出てくるのか？出てきたとき振る番号は？
ばらばらで出てくると、ソートしないと、VBAでも難しいのだ。

回答No.3

mu2011

NO2です。
>・A列に数値がない場合はB列に対してなにもしない
　=IF(A1<>"",COUNTIF($A$1:A1,A1),"")

回答No.2

mu2011

一例です。
B1に=COUNTIF($A$1:A1,A1)を入力、下方向にコピーで如何でしょうか。

お礼

回答ありがとうございます。
A列が”１”なら１～順番にB列に数値が入るのですが
A列が”２”になった場合、又１～順番にB列に数値が入るようにできますか？

よろしくお願いします。

回答No.1

kybo

A列のデータは昇順でソートされているみたいなので、

B1にとりあえず、「1」といれ、
B2以降には「=IF(A1=A2,B1+1,1)」という数式を入れ、下へコピーして下さい。

補足

早速の回答ありがとうございます。
A列はソートまで完了している段階です。

・A列に数値が入ってる場合にB列にNoを入れたい
かつ
・A列が同じ数値の場合はB列はNoを１から順番に入れたい
・A列に数値がない場合はB列に対してなにもしない

このような条件で関数、VBAを考えています。

質問内容が漠然としていてすいません。