VBA:関数をオートフィルしたい

Question

前提・実現したいこと

VBAについて質問です。
関数をオートフィルで挿入したいのですが、
単体で実行すればエラーは起きないのですが
Callステートメントに入れるとエラーが起きてしまいます。
原因がわからないため教えていただきたいです。

発生している問題・エラーメッセージ

      '最終行までオートフィルします。
        .AutoFill Destination:=Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow), Type:=xlFillCopy

↑ここでエラーが起きます。

該当のソースコード

Sub AutoFill1()
    Dim intLastRow As Integer
    Dim strInsertCol As String
    Dim strInsertRow As Integer
    
    '関数挿入の列をアルファベットで指定してください。
    strInsertCol = "N"
    
    '関数挿入の行を数値で指定してください。
    strInsertRow = "8"
    
    '最終行の位置番号を取得します。
    intLastRow = Cells(Rows.Count, 6).End(xlUp).row
    
    worksheets("請求書").Range("N8") = "=IF(YEAR(H8)& ""/"" &MONTH(H8)=""1900/1"","""",YEAR(H8)&  ""/"" &MONTH(H8))"
    '開始セN8ルからの処理です。
    With worksheets("請求書").Range(strInsertCol & strInsertRow)
    
       
      '最終行までオートフィルします。
        .AutoFill Destination:=Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow), Type:=xlFillCopy
    End With
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Sub test()
    Const cmyFormula As String = "=IF(YEAR(H8)& ""/"" &MONTH(H8)=""1900/1"","""",YEAR(H8)&  ""/"" &MONTH(H8))"
    Dim rng As Range
    
    Set rng = Worksheets("請求書").Range("N8")
    Set rng = rng.Resize(rng.Worksheet.UsedRange.Rows.Count - rng.Row)
    
    rng.Formula = cmyFormula
End Sub

試してないけど、こんな感じでどうだろう？
自分的には、まずセル範囲をちゃんと特定してから、
そのセル範囲に命令する方が考えやすいかなぁ。。。。

ぱっと見、

'最終行の位置番号を取得します。
intLastRow = Cells(Rows.Count, 6).End(xlUp).row

ここで、シートがちゃんと指定されていないのが原因かも？
マクロを実行するときに前提条件が崩れるとエラーになりそうです。

操作するのはセル範囲なので、
セル範囲を指定する言葉を色々覚えましょう。
あと、数式はオートフィルしなくても一括で入力可です。
手動だとオートフィルの方が操作が簡単ですが、
マクロだと文章を一行書くだけですのでそっちの方が簡単でしょう。
操作のしかたも、調べて確認してみるとよいとおもいます。
誤字脱字があれば、ごめんなさいです。

Comments

[pomiw0000]

ありがとうございます。実行してみたのですが最終行までオートフィルされなくて、途中で止まってしまっています????

[mattuwan]

＞途中で止まってしまっています

ということは、変数rngに上手く意図するセル範囲が入ってないということなので、ウォッチウィンドウで、rng.addressを確認しながら、ステップインで実行し、意図したセル範囲を取得できるように微調整してください。
こちらでは、シート上がどうなっていて、どのようなセル範囲に数式を入れたいのかよくわかってません。
書き方がわからないならば、日本語で説明してください。
日本語で説明できるなら、それをVBA語に翻訳するのを手伝えばよいのでしょうから。

Answer 2

これでどうでしょうか。

    With Worksheets("請求書")
        intLastRow = .Cells(Rows.Count, 6).End(xlUp).Row
        .Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow) = "=IF(YEAR(H8)& ""/"" &MONTH(H8)=""1900/1"","""",YEAR(H8)&  ""/"" &MONTH(H8))"
    End With

---

<追記>
CallしたときにAutoFillがエラーになるのは、たぶん対象のシートがActiveになってないからだと思います。
処理の先頭でActivateかSelectをすれば解消すると思います。