A2の値がA1の値と同じ場合はB2にB1の値+1をして

A2の値がA1の値と同じ場合はB2にB1の値+1をして
A2の値がA1の値と違う場合はB2に"1"を繰り返しさせて入力するように
以下としたのですが、A列の値がなくなる限り1が入力されるだけなのですが
どうすれば、A列のセルに同じ値が続く場合連番とすることができるでしょうか。お願いします。

range("B1").value = 1
range("B2").select
dim 番号 As varient
番号 = activecell.offset(-1, -1).value
do until activecell.offset(0,-1).value = ""
with activedell
if offset(0, -1).value = 番号 then
offset(0, 0).value = offset(-1, 0).value + 1
end if
offset(0, 0).value = "1"
offset(1, 0).select
end with
loop

No.3 回答者： imogasi 回答日時： 2010/10/27 22:09

だいたいこんなＯＦＦＳＥＴを使って処理する（判別する）セルをずらすやり方はつかいませんよ。

本質問が解決したら、また別の機会に
●Ｆｏｒ　Ｎｅｘｔを使いiを行ポインターとして処理します。
●do until なら行ポインターとしてi=i+1として次々処理します。
エクセルＶＢＡの（ビジネス系の）本などみて勉強してください。
それに質問にコードを貼り付けるなら、ＶＢＥの画面（１度は実行後の）をコピー貼り付けしては。
本質問のようにミスタイプがあると、それ（文法的な）が原因か他の原因か判りにくくなりますよ。
varient　activedell　offset(0, 0)の前のピリオド無し　など
ーー
Ａｃｔｉｖｅｃｅｌｌも危ういと思う。実行時にたまたま意図以外のところがアクチブ担っていたら
データがめちゃめちゃになる場合もある。
ＶＢＡで変えてしまった値の、前戻しが出来ない。

No.2 回答者： goo39 回答日時： 2010/10/27 14:24

VariantやActiveCellのスペルミスがありますが

1が入力されると言う事なのでそこはスルーして

end ifの箇所が悪いようです。

end if
offset(0, 0).value = "1"
　↓
Else
.Offset(0, 0).Value = "1"
End If
のようにして下さい。

No.1 回答者： aloha88600 回答日時： 2010/10/27 12:25

With内をよく見てください！

「.」が抜けてます

.Offset(0,-1).Value*****


となります