[[20200612021857]]　『RangeクラスのAutoFillメソッドが失敗した』（ごんぞう）　ページの最後に飛ぶ

『RangeクラスのAutoFillメソッドが失敗した』（ごんぞう）

B1には日付が入っています。
B1から最終行(変動あり)まで連続データでオートフィルしたいです。

しかしながら、下記エラーが表示されました。
実行時エラー '1004'
RangeクラスのAutoFillメソッドが失敗しました。

私が組んだマクロを抜粋すると以下の通りです。

Sub Macro1()

    '変数を宣言
    Dim 最終列 As Long

    '最終列を取得
    最終列 = Cells(1, Columns.Count).End(xlToLeft).Column

    '日付をオートフィル
    Selection.AutoFill Destination:=Range(Cells(1, 2), Cells(1, 最終列)), Type:=xlFillDefault

End Sub

エラーを出さないために誤りをご指摘いただけますでしょうか。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 Selectionがどこかによりますね。
 AutoFillメソッドのヘルプを見て、条件にあっているか確認してみては？
（γ） 2020/06/12(金) 05:51

 '日付をオートフィル
 If 最終列 - Cells(1, 2).Column + 1 < 2 Then Exit Sub
 Cells(1, 2).AutoFill Destination:=Cells(1, 2).Resize(, 最終列 - Cells(1, 2).Column + 1), Type:=xlFillDefault

こういうことをしたいのかな
（マカロン） 2020/06/12(金) 08:25

最終列がいま1行目の一番右の行で設定しているけど
1 行目でオートフィルするなら他のデータが入っている行にした方がいいかも
なければ1行目の最終列に何か文字を打ってから実行で
（マカロン） 2020/06/12(金) 08:29

yさん、マカロンさん
無事にエラー解消しました。
どうもありがとうございました！
（ごんぞう） 2020/06/12(金) 08:56

コメント返信：

[ 一覧(最新更新順) ]

[[20200612021857]] 『RangeクラスのAutoFillメソッドが失敗した』（ごんぞう） ページの最後に飛ぶ

[[20200612021857]]　『RangeクラスのAutoFillメソッドが失敗した』（ごんぞう）　ページの最後に飛ぶ