Excel VBA質問箱 IV

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

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


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

75488 / 76738

←次へ　｜　前へ→


	【5686】一番したのセルを探してオートフィルで採番

sabujr - 03/5/27(火) 16:15 -


	引用なし

	パスワード

　いつも皆様の知恵を見て、関心しておりました。
　sabujrと申します。（お初です）

　そこで、質問なのですが、
　ある列（Ｂ列とします）の一番したをみて、新たに番号を
　採番して、データを貼り付けたいと考えています。
　
　そこで…問題なのですが、採番する番号が数字だけではなくて
　英字も混在しています。（ERR-01のように）
　エクセルのオートフィルを使って自動的に新たに番号をつけてくれる
　ようにしたいのですが…。(ERR-01→ERR-02)
　いまの状態です…。(一番したの行でエラーになります。）
　↓
　Do Until ActiveSheet.Cells(NewRecord, 2) = ""　
　　 NewRecord = NewRecord + 1
　Loop
　NewRecordmae = NewRecord - 1　　　　
　WORK = ActiveSheet.Cells(NewRecord, 2).Address(0, 0)
　WORK2 = ActiveSheet.Cells(NewRecordmae, 2).Address(0, 0)
　Selection.AutoFill Destination:=Cells(WORK2：WORK), Type:=xlFillDefault　　↑
　ここの指定方法で、なにか良い解決方法はありますでしょうか？
　あんまり難しいだと自分が理解できないのですが…(^^;)
　
　どなたかお願いします。m(_　_)m　
　

2 hits

▼

【5686】一番したのセルを探してオートフィルで採番 sabujr 03/5/27(火) 16:15

≪