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

Sub InsertFormula()
    Dim ws As Worksheet
    Dim productRange As Range
    Dim dateRange As Range
    Dim intersectRange As Range
    Dim formula As String
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置产品范围和日期范围
    Set productRange = ws.Range("A1:A10")
    Set dateRange = ws.Range("B1:B10")
    
    ' 获取相交范围
    Set intersectRange = Intersect(productRange, dateRange)
    
    ' 检查是否存在相交单元格
    If Not intersectRange Is Nothing Then
        ' 遍历相交单元格
        For Each cell In intersectRange
            ' 构建公式
            formula = "=SUM(" & cell.Address & ", " & cell.Offset(0, 1).Address & ")"
            
            ' 在相交单元格中输入公式
            cell.Offset(0, 2).Formula = formula
        Next cell
    End If
End Sub