Excelマクロについての質問でございます。=XLOOKUP(A2,Book1.csv!$I$I, Book1.csv!$E$E)をF2セルに入力し最終行まで反映させるといったマクロを組みたいです。恐れ入りますがご教示いただけますと幸いです。よろしくお願いいたします。

Sub FillXLookup()

Dim ws As Worksheet

Dim lastRow As Long



' 対象のシートを指定

Set ws = ThisWorkbook.ActiveSheet



' A列のデータが入っている最終行を取得

lastRow = ws.Cells(ws.Rows.Count, \u0026quot;A\u0026quot;).End(xlUp).Row



' 2行目以降にデータがある場合のみ実行

If lastRow \u0026gt;= 2 Then

' F2セルからF列の最終行まで一気に数式を入力

' ※Book1.csvが開いている前提の書き方です

ws.Range(\u0026quot;F2:F\u0026quot; \u0026amp; lastRow).Formula2 = \u0026quot;=XLOOKUP(A2,[Book1.csv]$I:$I,[Book1.csv]$E:$E)\u0026quot;

Else

MsgBox \u0026quot;データが見つかりません。\u0026quot;

End If

End Sub