Ｂ列の最終行までＡ列をオートフィル

画像のようにＢ列の最終行までＡ列をオートフィルしたいです。
この処理をVBAで行いたいです。

お詳しい方教えてください、宜しくお願いいたします。

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/09/05 14:30

考えすぎかもですが。

・データのナンバーリングはＡ２からスタート
・ナンバーリングは１からＢ２～Ｂ最終行にデータのある範囲

と思って（過去質からの憶測）

With Range("A2", Cells(Rows.Count, "B").End(xlUp).Offset(, -1))
.Formula = "=ROW()-1"
.Value = .Value
End With

この回答へのお礼

ありがとうございます。解決できました！

お礼日時：2022/09/11 10:27

No.1 回答者： Qchan1962 回答日時： 2022/09/05 10:24

こんにちは

作る　手順

記録マクロでオートフィル操作を行う
結果
Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A13"), Type:=xlFillDefault
Range("A1:A14").Select
End Sub

B列の最終行の取得方法を調べる
記録方法を知っていれば記録する
https://excel-ubara.com/excelvba1/EXCELVBA318.html

記録されているコードを添削
範囲の書き方
https://sugoikaizen.com/excelvba/2_80/

添削例
Sub test()
'
' Macro1 Macro
'

'
Dim bLastR As Long
bLastR = Cells(Rows.Count, "B")・・・・
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A" & bLastR), Type:=xlFillDefault

この回答へのお礼

遅くなりまして申し訳ありません。
大変参考になりました、ありがとうございます。

お礼日時：2022/09/11 10:27