隣の列に存在するものに対して処理をしたい

Question

AG列に存在するものに対してオートフィルをかけたいです。

    Range("AG9").Select
    
    Range("AG9") = "=sum(AE9:AF9)"

    Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))
    
    Range(Selection, Selection.End(xlDown)).Select
    
    Selection.Copy

現状ですとSelection.End(xlDown)により最終セルまでオートフィルをかけてしまう状況です。

参照先はAF列の左隣のAG列で値が存在するまでオートフィルをかける方法はございますでしょうか。

宜しくお願い致します。

Answer 1

こんなのとか

Range("AG9").Select

Range("AG9") = "=sum(AE9:AF9)"

Selection.AutoFill Destination:=Range(Selection, Selection.Offset(,-1).End(xlDown).Offset(,1))

Comments

[suukun]

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