マクロを使用して最後の列まで自動塗りつぶし

Question

最後の列に式を自動入力します。ここに私のコードは次のとおりです。

Dim LastColumn As Long 
LastColumn = Cells(5, Columns.Count).End(xlToLeft).Column 
Selection.AutoFill Destination:=Range("B1:" & LastColumn & "1"), Type:=xlFillDefault 

私は、変数LastColumnで最後の列をカウントすることに成功しましたが、オートフィル時に、それが失敗しました。だから、私は列Bから列Lastcolumnへの自動入力をしたいと思う。

助けてください。私のコードに何が問題なのですか？

Answer 1

LastColumnには番号がありますので、Rangeに直接使用することはできません。これを代わりに使用してください：