|
初心者です。。。
よろしくお願いします。
行き詰まってしまいまして質問します。
ワークシート「TEST」のB行にはデータが入っています。
B行に[END」が出てくるまでA行に1からナンバリングしていきます。
B行にはたまにブランクがあり、B行がブランクならばA行もブランクにします。
ブランクの次のA行にはブランクの前のナンバリングの続きを入れます。
つまり1〜5までナンバリングして、ブランクのあと6〜始まるということです。
B行の最初はB2から始まり、ここには必ずデータが入っているので
A2には1が最初から入っています。
私は
Sub ナンバリング()
Dim TATE As Integer
Dim YOKO As Integer
Dim i As Integer
Dim COUNT As Integer
Set WS = Worksheets("出品")
TATE = 3
YOKO = 2
i = 2
COUNT = 1
WS.Range("A" & i) = COUNT
'Bのセルにエンドが入るまでDO
Do
'セルBがブランクならばセルAもブランク
If WS.Cells(TATE, YOKO) = "" Then
i = i + 1
WS.Range("A" & i) = ""
Else
'セルAにナンバリング
i = i + 1
COUNT = COUNT + 1
WS.Range("A" & i) = COUNT
End If
TATE = TATE + 1
Loop While WS.Cells(TATE, YOKO) = "END"
End Sub
と作ってみたのですが、どうしても上手く行かないのです。。。。
どうしたら上手く行くか教えて下さい。
よろしくお願いします。
|
|