こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

実行時エラー1004 オートフィルができない

エクセルなのですが、A列の文字にたいする数式をB列に入れて最終行までオートフィルするマクロを作りたいのですが実行時エラー1004が発生してしまいます。


Sub macro1()
Dim LastRow As Long

LastRow = Range("A65536").End(xlUp).Row

Range("B1").Value = "=LEN(A1)"
Range(Range("B1"), Selection).AutoFill Destination:=Range("B1:B" & LastRow)
End Sub


このコードです。
Range(Range("B1"), Selection).
ここら辺が怪しいかなと思ってるのですが、どうすればいいでしょうか?

オートフィルを使わずにfor~nextでやる方法も知ってますが、オートフィルでやる方法をご教授いただきたいです。
よろしくお願いします。

投稿日時 - 2013-05-18 09:04:13

QNo.8093162

困ってます

質問者が選んだベストアンサー

勿論次のようでもよいでしょう。

Sub macro1()
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Range("B1").Value = "=LEN(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
End Sub

投稿日時 - 2013-05-18 09:51:57

お礼

どうもありがとうございました。

投稿日時 - 2013-05-29 19:34:57

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

次のようにすればよいでしょう。

Sub macro1()
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Range("B1").Value = "=LEN(A1)"
Set SourceRange = Range("B1")
Set fillRange = Range("B1:B" & LastRow)
SourceRange.AutoFill Destination:=fillRange
End Sub

投稿日時 - 2013-05-18 09:45:43

お礼

どうもありがとうございました。

投稿日時 - 2013-05-29 19:34:54

あなたにオススメの質問