如果单元格等于产品和日期，请在相交单元格VBA中输入公式

我正在尝试使用VBA根据产品名称和日期标准自动插入公式。尝试了多种方法，包括索引匹配、相交，但似乎无法使其工作

目前，我的公式是根据另一工作表的日期手动放置的。参考公式

                    B   C   D
                   1/1 1/2 1/3

     2 Product 1    ?
     3 Product 2

有没有一种方法可以使用VBA实现自动化

试试这个：

=IFERROR(IF(VLOOKUP($B$1&$C39&Japan!$E39,TDM!$A:$AA,23,0)=Japan!U$33,SUMIF(Allocation!$A:$A,Japan!$A39,Allocation!$S:$S),"")*$G39,"")

Sub Fill_Formula()
Dim StartRow As Long
StartRow = 2

For i = StartRow To 50 'Start and End Rows
    For j = 2 To 10 'Start and End Columns
        Cells(i, j).Formula = _
            "IFERROR(IF(VLOOKUP($B$1&$C" & 39 + (i - StartRow) & "&Japan!$E" & 39 + (i - StartRow) & ",TDM!$A:$AA,23,0)=Japan!U$" & 33 + (i - StartRow) & ",SUMIF(Allocation!$A:$A,Japan!$A" & 39 + (i - StartRow) & ",Allocation!$S:$S),"")*$G" & 39 + (i - StartRow) & ","")"
    Next j
Next i


End Sub