Sub Search_comments()
    Dim MyArr, TempArr
    Dim a, i&, j&, sKey$
    Dim Separ$: Separ = " | "   'чисто для формирования уникальных ключей словаря
    
    
    Dim MeTime As Date: MeTime = Time
    Dim Start!:         Start = Timer
    
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Dic.CompareMode = vbTextCompare

    On Error Resume Next
    For Each a In Worksheets("db").[a1:a1000]                    'таблица 1, которая хранит все комменты. Можно задать динамическим диапазоном
        Dic.Add CStr(a & Separ & a.Offset(, 1).Value), Array(a, a.Offset(, 1), a.Offset(, 2), a.Offset(, 3))
    Next a
    
    For Each a In Worksheets("dashboard").[d2:d1000]                    'таблица 2, которую обрабатываем
        sKey = a & Separ & a.Offset(, 1).Value
        If Len(a.Offset(, 7).Value & a.Offset(, 8).Value) > 0 Then                          'если комменты есть, то
            If Dic.Exists(sKey) Then                    'проверяем, что мы насобирали с таблицы 1
                Dic.Item(sKey) = Array(a, a.Offset(, 1), a.Offset(, 7), a.Offset(, 8))      'если элемент имеется, то обновляем значения комментов
            Else
                Dic.Add CStr(sKey), Array(a, a.Offset(, 1), a.Offset(, 7), a.Offset(, 8))   'если не находит, то добавляет
            End If
        Else
            If Dic.Exists(sKey) Then Dic.Remove sKey                    'удаляет записи без комментариев
        End If
        
    Next
    
    TempArr = Array(Dic.Items)                    'передаем в массив
    ReDim MyArr(1 To Dic.Count, 1 To 4)
    For i = 0 To Dic.Count - 1
        For j = 0 To 4
            MyArr(i + 1, j + 1) = TempArr(0)(i)(j)          'готовим массив для экспорта на лист
        Next
    Next
    
    With Worksheets("db")
        .UsedRange.Clear                    'очищаем старые данные
        .Range(.Cells(1, 1), .Cells(Dic.Count, 4)) = MyArr  'записываем новые
    End With
    
    Debug.Print Timer - Start
    MsgBox "Затрачено: " & Format(Time - MeTime, "hh:mm:ss") & vbLf & "найдено " & Dic.Count & " записей для отображения."
End Sub