VBA数字在Excel中格式化公式

我希望这很简单，但我有一个vba脚本，可以在工作簿中自动填充公式

是否可以将此公式的输出显示为mm/dd/yy？我在网上看到了这段代码，但无法获取工作范围（“A1”）的语法。NumberFormat=“dd/mm/yyyy”

有什么想法吗

Sub addFormulas()
    With ThisWorkbook.Worksheets("Accounts")
    
        .Cells(4, 5).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 1).Formula = "=IF('Accounts'!A4  ="""","""",VLOOKUP('Accounts'!A4,'MC'!A:R,18,0))"
    End With
End Sub

---

只需将数字格式应用于与公式相同的范围

With ThisWorkbook.Worksheets("Accounts")
    With .Cells(4, 5).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 1)
        .Formula = "=IF('Accounts'!A4  ="""","""",VLOOKUP('Accounts'!A4,'MC'!A:R,18,0))"
        .NumberFormat = "dd/mm/yyyy"
    End With
End With