| |
初心者です。。。
よろしくお願いします。
行き詰まってしまいまして質問します。
ワークシート「ＴＥＳＴ」のＢ行にはデータが入っています。
Ｂ行に［ＥＮＤ」が出てくるまでＡ行に１からナンバリングしていきます。
Ｂ行にはたまにブランクがあり、Ｂ行がブランクならばＡ行もブランクにします。
ブランクの次のＡ行にはブランクの前のナンバリングの続きを入れます。
つまり１〜５までナンバリングして、ブランクのあと６〜始まるということです。
Ｂ行の最初はＢ２から始まり、ここには必ずデータが入っているので
Ａ２には１が最初から入っています。
私は
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
'Ｂのセルにエンドが入るまでＤＯ
Do
'セルＢがブランクならばセル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
と作ってみたのですが、どうしても上手く行かないのです。。。。
どうしたら上手く行くか教えて下さい。
よろしくお願いします。
|
|
くみ
- 03/3/26(水) 11:24 -
