Option Explicit

Sub tt()
      Dim m$, a(), b(), c(), i&, t$

      With CreateObject("scripting.dictionary"): .comparemode = 1
          With Workbooks("свод.xlsb").Sheets(1)
              m = .Cells(2, 1).Value
              a = .Range(.[F4], .Range("A" & .Rows.Count).End(xlUp)).Value
          End With
          For i = 1 To UBound(a)
              .Item(a(i, 1) & "|" & a(i, 2) & "|Ш") = a(i, 3)
              .Item(a(i, 1) & "|" & a(i, 2) & "|В") = a(i, 4)
              .Item(a(i, 1) & "|" & a(i, 2) & "|К") = a(i, 6)
          Next
          With Workbooks("инструмент.xlsx").Sheets(1)
              i = .Range("C" & .Rows.Count).End(xlUp).Row
              a = .Range(.[C7], .Range("C" & i)).Value
              b = .Range(.[G7], .Range("G" & i)).Value
              c = .Range(.[J7], .Range("J" & i)).Value
          End With
          ReDim d(1 To UBound(a), 1 To 1)

          For i = 1 To UBound(a)
              t = c(i, 1) & "|" & a(i, 1) & "|" & Left(b(i, 1), 1)
              If .exists(t) Then d(i, 1) = .Item(t)
          Next
      End With

      Workbooks("инструмент.xlsx").Sheets(1).Range("N5:Y5").Find(m).Offset(2).Resize(UBound(d)).Value = d

End Sub