| |
▼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
>
'==================================================
Sub Macro1()
On Error Resume Next
Dim rng As Range
Set rng = Range("B1", Cells(Rows.Count, 2).End(xlUp))
With rng
.AutoFill Destination:=.Resize(.Rows.Count + 1, 1), Type:=xlFillDefault
End With
If Err.Number <> 0 Then MsgBox Error(Err.Number)
End Sub
これでどうでしょうか？
|
|
ichinose
- 03/5/27(火) 16:37 -
