Excel 連続番号入力方法

質問

Excel2003を仕事で使用しています。
Ａ列に連続する番号をつけます。（5000行ぐらいあるデータです。）
しかしＡ列にはバラバラでSKIPという文字が入力してあり、そのセルは飛ばして番号をつけていかなければなりません。
SKIPのセルは飛ばして連続する番号を入力する方法はないでしょうか？

（例）
１
２
３
SKIP
４
５
SKIP
６
・
・

回答No.4

ham_kamo · ベストアンサー

マクロで一気にやる方法です。
シートタブを右クリックして「コードの表示」を選択すると、VBAの画面が出てくるので、出てきた右の画面に以下のマクロを貼り付けて実行。

Sub 連番を挿入()
　　Dim i As Integer, row As Integer
　　row = 1 '連番が始まる行番号を指定
　　For i = 1 To 5000 '連番の最後の数を指定
　　　　Do While Cells(row, 1).Value = "SKIP"
　　　　　　row = row + 1
　　　　Loop
　　　　Cells(row, 1).Value = i
　　　　row = row + 1
　　Next
End Sub

補足

マクロで上手くいったのですが、A列ではなくてC列でした。
C列で実行するには、どのようにコードを変更すれば良いのでしょうか？

回答No.7

ham_kamo

No.4です。補足拝見しました。
Ｃ列ですと、マクロの中に２箇所出てくる
Cells(row, 1)
というのを
Cells(row, 3)
に変更すればいいです。

回答No.6

maron--5

◆こんな方法はいかがでしょうか？
　　　A　　　　B
1　　　　　　　　1
2　　　　　　　　2
3　　　　　　　　3
4　　SKIP
5　　　　　　　　4
6　　　　　　　　5
7　　SKIP
8　　　　　　　　6

■手順■
１）B1に　'1　と文字で入力
２）B2=IF(A2="SKIP","",TEXT(COUNTIF($B$1:B1,">*")+1,"0"))
３）B2の文字位置を「右詰め」にして、下にコピー
４）B列の列幅を、1ピクセルに狭めます

◆いかがでしょうか、B列の数字が、一見A列に表示されているように見えませんか？

回答No.5

saito792

関数等を使わない力ずくの作業ですが簡単だと思います。
まず、Ａ列の左隣に１列挿入します。
新しくできたＡ列に１～５０００までの連続番号を入力します。
最初のＡ列はＢ列に変わっていますので、以後Ｂ列と呼びます。
全ての行を選んでから、並び替えをおこないます。
最優先されるキーをＢ列、２番目をＡ列とし昇順で並び替えます。
すると最初の方に空白セルが並んできますので、SKIPが入っているセルの手前まで、１から連続入力していきます。
入力が終わったら、Ａ列を最優先キーにして再度並び替えを行います。これで最初の順番に戻っています。
その後、初めに挿入したＡ列を削除します。
エレガントなやり方ではないですが、作業とすると早いと思います。

回答No.3

Mr_Holland

並び替えを使う方法はいかがですか。

１）ANo.1の方法でＢ列に１から順に（５０００まで？）入れる。
２）範囲をＡ列とＢ列として昇順に並び替える。
　　（第１キー：Ａ列、第２キー：Ｂ列）
　　　⇒　上部に「SKIP」が集まり、下部に空欄が集まる。
３）Ａ列の空欄部分に１から順にANo.1の方法で入力する。
４）範囲をＡ列とＢ列として昇順に並び替える。
　　（第１キー：Ｂ列）
５）Ｂ列を列削除。

回答No.2

t-yamada_2

No.1です。
間違えました。

回答No.1

t-yamada_2

1
2
3
（スペース）

までセル選択してスペースセルの右下にマウスポインタを持って行き（十字マーク）、下へドラッグしてみてください。