VBA：数式をコピー

Question

前提・実現したいこと

B列のB2~最終行まで数式を入力したいですが
以下のエラーが発生してしまいます。

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

ここの部分で「RangeクラスのAutofillメゾットが失敗しました」とエラーになってしまいます。

.AutoFill Destination:=Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow), Type:=xlFillCopy

該当のソースコード

Sub test()
 Dim intLastRow As Integer
 Dim strInsertCol As String
 Dim strInsertRow As Integer
    
    '関数挿入の列をアルファベットで指定してください。
    strInsertCol = "B"
    
    '関数挿入の行を数値で指定してください。
    strInsertRow = "2"
    
    '最終行の位置番号を取得します。
    intLastRow = Cells(Rows.Count, 2).End(xlUp).Row

    '開始セルからの処理です。
    With Worksheets("Sheet1").Range(strInsertCol & strInsertRow)
        '数式として開始セルへ挿入します。
        .Formula = "=IF(Sheet1!B2="""",Sheet1!B1,Sheet1!B2)"
        '最終行までオートフィルします。
        .AutoFill Destination:=Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow), Type:=xlFillCopy
    End With
End Sub

エラーの原因が分からないため困っています。
おねがいします。

Comments

[Daregada]

シートの構成(複数のシートがあるのか)と、このコードをどのシートで実行するのか、どういう結果を望んでいるのか、を質問文(編集可能です)に追加してください。

[aaaskw123123]

解決しました。ありがとうございます。

[Daregada]

解決した後でも、質問文を明確に書き直してください。
この質問と回答は、あなただけが使うものではありません。

[aaaskw123123]

了解です

Answer 1

対象のワークシートが「Sheet1」で、コード実行時には別のシートがアクティブだと起きるようですね。
以下のように、対象のワークシートを明確にすればよいかと

.AutoFill Destination:=Worksheets("Sheet1").Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow), Type:=xlFillCopy

ただ、だとすると以下の部分も修正が必要になります。

intLastRow = Cells(Rows.Count, 2).End(xlUp).Row

Comments

[aaaskw123123]

ありがとうございます。解決いたしました。