Excel双条件匹配按时间线分布生成甘特图的宏实现求助

核心功能说明
这个宏针对你现有的三列数据结构（Customer ID、Date of Purchase、Amount）设计，可同时匹配指定客户ID与目标日期，返回对应交易金额，直接对接甘特图时间轴矩阵的取值需求，不需要预先调整原始数据的列排布。

可直接复用的宏代码 #

Function MatchAmountForGantt(targetCustomerID As String, targetDate As Date, sourceData As Range) As Double
    ' 关闭屏幕刷新减少运行卡顿
    Application.ScreenUpdating = False
    Dim totalAmount As Double
    totalAmount = 0
    
    ' 遍历原始数据所有行做双条件匹配
    Dim row As Range
    For Each row In sourceData.Rows
        ' 客户ID完全匹配判断
        If CStr(row.Cells(1, 1).Value) = CStr(targetCustomerID) Then
            ' 日期匹配判断（兼容文本格式的伪日期）
            Dim rowDate As Date
            On Error Resume Next
            rowDate = CDate(row.Cells(1, 2).Value)
            If Err.Number = 0 Then
                If rowDate = targetDate Then
                    ' 累加同客户同日期的所有交易金额
                    totalAmount = totalAmount + Val(row.Cells(1, 3).Value)
                End If
            End If
            On Error GoTo 0
        End If
    Next row
    
    MatchAmountForGantt = totalAmount
    Application.ScreenUpdating = True
End Function

宏的操作步骤（针对不熟悉VBA的用户） #

• 打开存储原始交易数据的Excel文件，按下快捷键Alt+F11调出VBA编辑界面
• 在左侧工程导航栏右键点击当前工作簿的名称，依次选择「插入」-「模块」
• 将上面的代码完整粘贴到右侧弹出的空白编辑区域，关闭VBA编辑器
• 保存文件时选择「启用宏的工作簿(*.xlsm)」格式，避免代码下次打开丢失

甘特图场景下的调用方法 #

把甘特图的矩阵结构按「纵轴放Customer ID、横轴放连续日期」排布，在矩阵的交叉单元格里直接调用自定义函数即可：
举个实际调用的例子：如果纵轴的客户ID存在A2单元格，横轴的目标日期存在B1单元格，原始交易数据放在Sheet2的A-C列，那么在B2单元格输入函数=MatchAmountForGantt($A2, B$1, Sheet2!$A:$C)，之后下拉、右拉填充所有矩阵单元格，就能自动拿到所有交叉位置对应的交易金额，后续直接给矩阵加条件格式就能生成标准的甘特图可视化效果。

注意事项 #

• 代码默认原始数据的列顺序是A列=Customer ID、B列=Date of Purchase、C列=Amount，如果你的列顺序有调整，只需要修改函数内对应匹配的单元格列号即可
• 函数默认会自动累加同一客户同一日期的多笔交易金额，不需要提前对原始数据做合并汇总
• 日期匹配环节做了文本格式兼容，不会因为原始日期存储为文本格式出现匹配失效的问题

内容的提问来源于stack exchange，提问作者abelcurve