excel - 在空白单元格下方的行中注入公式

Question

我在 U 列中有一个定价结构的工作表。我想将新的定价公式注入此工作表中每个子表的第一行（其中 E 列显示为“加仑 - 新 Bdgt”）。整个工作表的结构相同。 我的工作表

这是我的 VBA 尝试

Sub FillFormulas()
Dim r As Range
Set r = Range("U:U").Cells.SpecialCells(xlCellTypeBlanks)
    With r
        .Offset(-1, 0).Formula = "=XLOOKUP(D2,'2021 Pricing'!$C$6:$C$47,'2021 Pricing'!$K$6:$K$47,""Not Found"",0)"
    End With
End Sub

这不起作用，有什么建议吗？

标签： excelvba