実行時エラー '1004' - メソッド 'オブジェクト'グローバルの '範囲'がVBAで失敗しました

Question

ActiveCell.FormulaR1C1 = "Y" 
Range("B1").Select 

Dim lastcellex As String 

Range("A1").Select 
Selection.End(xlDown).Select 
ActiveCell.Offset(0, 1).Select 

lastcellex = ActiveCell.Address 
Range("B1").Select 
Selection.AutoFill Destination:=Range("B1:lastcellex") 

なぜこのエラーが発生するのですか？変数を、その範囲の最後のセルと等しくなるように設定しますが、1つの列を超えて設定します。したがって、列Aの範囲がA55の場合、lastcellexはB55になります。 B1：B55から自動入力するようにしています。

あなたのご意見をお聞かせください。

Answer 1

それは次のようになります。

Selection.AutoFill Destination:=Range("B1:" & lastcellex)