|
いつも皆様の知恵を見て、関心しておりました。
sabujrと申します。(お初です)
そこで、質問なのですが、
ある列(B列とします)の一番したをみて、新たに番号を
採番して、データを貼り付けたいと考えています。
そこで…問題なのですが、採番する番号が数字だけではなくて
英字も混在しています。(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
|
|