Excel VBA将条目添加到记录列表的子集

Question

我从以前的帖子中收到了此程序，效果很好。当我在活动记录中将“状态”单元格更改为“已填充”时，该过程将查看所有具有相同作业条目（在本示例中为“ a”）的记录，并输入要与之匹配的记录集的最早的日期格式作业条目“ a”进入活动记录的“日期”单元格。

我想添加到该过程或单独的过程中的是，还将与活动记录作业单元格“ a”匹配的所有记录的字母“ w”添加到“结果”列中。

 If Not Intersect(Target, Columns(4)) Is Nothing Then
    On Error GoTo safe_exit
    Application.EnableEvents = False
    Dim i As Long, t As Range, tmp As Variant
    For Each t In Intersect(Target, Columns(4))
        If LCase(t.Value2) = "filled" Then
            tmp = Intersect(Me.UsedRange, Range("H:K")).Value2
            For i = LBound(tmp, 1) To UBound(tmp, 1)

                If tmp(i, 4) = t.Offset(0, 7) Then _
                    t.Offset(0, 4) = Application.Match(t.Offset(0, 4), tmp(i, 1))
            Next i
        End If
    Next t
End If`