【エクセル】 VBAでエラーが出てわかりません。。

質問

やりたいことは、関数をマクロでセルに記入してオートフィルで指定した行数まで伸ばしたいのです。
（すでに関数で作成したファイルがあるのですが、行数が多いため、とても重い。。＾＾；）

まずマクロの記録で次のマクロを取得しました。
Sub Macro4()
Range("C4").Select
ActiveCell.Formula = "=SUM(A2:A10)"
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:C12"), Type:=xlFillDefault
Range("C4:C12").Select
Range("D11").Select
End Sub

そして、
Sheet2に貼り付けて
> ActiveCell.Formula = "=SUM(A2:A10)"
の"=SUM(A2:A10)"部分をちょっと長い関数ですが、

"=IF(ISERROR(INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1)),"",INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1))"

と書き換えてマクロを実行すると「アプリケーション定義またはオブジェクト定義エラーです。」
というエラーが出てしまうんですが、どこを直せばわからないです。。
おかしいところを教えてください、よろしくお願いします。

わかり図らい説明かと思いますが。。この件（１行目の文）について似たようなことを解説して
いるサイトがありましたら、教えて欲しいです。

回答No.1

hana-hana3 · ベストアンサー

「""」は空白だと思いますが、””で囲まれた文字列中で使うには特殊な書き方をしなくては行けません。
「""""」とすると正しく記入できます。

お礼

回答ありがとうございます。

しかし、試してみましたら、また同じエラーが出てしまいました。
関数部分を以下のように修正して実行しました。
"=IF(ISERROR(INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1)),"""",INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1))"

回答No.2

hana-hana3

＞しかし、試してみましたら、また同じエラーが出てしまいました。

Range("A1").Formula = "=IF(ISERROR(INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1)),"""",INDEX(Sheet1!$I$1:Sheet1!$I$400,SMALL($A$2:$A$400,ROW(A1)),1))"
として実行しましたが、エラーにはなりませんでしたよ。

別の部分でエラーが起きていませんか？