エクセル２００３で可能でしょうか？

質問

エクセル２００３で、行を削除しても自動で連番をふりなおせる関数ＲＯＷは解るんですが、行ごと削除するときはＲＯＷは有効ですが、たとえばこんなときはどうすればよいでしょうか？
Ａ列に連番がふってある表があったとして、Ａ１～Ａ５セルに１～５の連番をふったときに、Ａ３セルの連番を消し、”削除”という文字列を入力した場合、Ａ１セル＝１、Ａ２セル＝２、Ａ３セル＝”削除”、Ａ４セル＝３、Ａ５セル＝４　というように、”削除”と文字列を記入したセルを飛ばし連番が自動的にふれるという関数ｏｒマクロはないでしょうか？今は、いちいち手打ちで修正しているのですが・・。ＲＯＷとＩＦを使ってできないか？と考えましたがどうしても解りません。みなさんのお知恵をかしてください！！

回答No.2

noname#121987 · ベストアンサー

これで良いものか少し疑問がありますが、

(1)セルＡ１に
=IF(ROW()=1,1,MAX($A$1:OFFSET(A1,-1,0))+1)
と入力して、Ａ２以下にコピーしてください。
これで連番が振られます。

(2)たとえばセルＡ３に「削除」と入力して、数式を上書きしてください。Ａ４以下の連番は、３から振りなおしになります。

お礼

早速実務で使わせていただきました！！まさに求めていたものでした。ありがとうございました！！！！

回答No.3

suz83238

行いたいシートのシートモジュールに下記を入れてみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
c = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
t = 1　
For i = 1 To c
If Cells(1, i).Value <> "削除" Then
Cells(1, i).Value = t
t = t + 1
End If
Next i
Application.EnableEvents = True
End Sub

お礼

ちょっと高度で今はつかいこなせませんでしたが、解読してがんばります！！ありがとうございました！！！

回答No.1

dodemoii

こんにちは

関数では無いですけどセルをドラッグした時にマウスカーソル
をセルの右下に合わせると小さい■の記号が出るので、
そのままマウス左ボタンを押しながらセルをなどって行くと
連番がふれますよ。(参照フィルオプション,オートフィル)
同じ数値が入ってしまう時には例えば
1と2と表示されているセルを選択してから上記を実行すると
連番になると思います。
では。

お礼

参考になりました。ありがとうございました。