プロが教えるわが家の防犯対策術!

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

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

「B列の最終行までA列をオートフィル」の質問画像

A 回答 (2件)

考えすぎかもですが。


・データのナンバーリングはA2からスタート
・ナンバーリングは1からB2~B最終行にデータのある範囲

と思って(過去質からの憶測)

With Range("A2", Cells(Rows.Count, "B").End(xlUp).Offset(, -1))
.Formula = "=ROW()-1"
.Value = .Value
End With
    • good
    • 0
この回答へのお礼

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

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

こんにちは


作る 手順

記録マクロでオートフィル操作を行う
結果
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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング