Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17720 / 76782

←次へ　｜　前へ→


	【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

≪