Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17670 / 76732 ←次へ | 前へ→

【64511】自動番付の方法教えてください。
質問  ひかる  - 10/2/16(火) 23:42 -

引用なし
パスワード
   またお世話になります。
自動番付の方法が分かりません。教えてください。

   A    B
1  No  氏名
2  1   A
3  2   B
4  3   C
5  4   D
このようにA列に自動番号を付けるため、
Dim NewData As Long
New Data = Range("A65536".end(xlUp).Row + 1
Cells(NewData, 1) = NewData - 1 と
データ(氏名)を登録するたびに自動番付をつけていたのですが、氏名Cの行を削除(データの削除)してから再度データを登録するとNoが1,2,4,4と同番ができてしまいます。
行を削除しても同番ができないような方法がありましたらお教えください。
よろしくお願いします。
0 hits

【64511】自動番付の方法教えてください。 ひかる 10/2/16(火) 23:42 質問
【64512】Re:自動番付の方法教えてください。 ichinose 10/2/17(水) 6:26 発言
【64517】Re:自動番付の方法教えてください。 ひかる 10/2/18(木) 0:19 お礼
【64513】Re:自動番付の方法教えてください。 Mariko 10/2/17(水) 7:33 回答

17670 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free