if、iferror、および Vlookup を含む数式を作成するという私のタスク
値を含む最後の行の終わりまで数式を適用する必要があります。
vlookup が NA をスローする場合、セルは空白にする必要があります。それ以外の場合、値は数値「1」に置き換える必要があります。
しかし、式を試したときにエラーが発生しています
Sub testt()
Dim l As Long
l = Sheets(1).Range("A1:A" & Sheets(1).Cells(Sheets(1).Rows.Count, "A").End(xlUp).Row).Count
With Sheets("Sheet1")
.Range("d1").Formula = "=IF(iferror(vlookup(c2,$D:$D,1,false),""),"",1)"
.Range("d1").AutoFill Destination:=Range("d1:d" & l), Type:=xlFillDefault
End With
End Sub