Sub t()
   Dim r As Range, c As Range, d As Object, re As Object, mc As Object, i&, s$, x
    
   Set re = CreateObject("vbscript.regexp")
     re.Pattern = "\[([^:]+):([^:]+:[^:]+):([^:]+):([^:]+):(.+?)\]"
     re.Global = True
   Set d = CreateObject("scripting.dictionary")
    
   With Sheets("прайс с ценами")
     a = Range(.[a3], .Cells(.Rows.Count, 1)).Resize(, 3).Value
     For i = 1 To UBound(a)
       If a(i, 1) > "" Then d(a(i, 1)) = a(i, 2) & "|" & a(i, 3)
     Next
   End With
    
   With Sheets("заполнить")
     Set r = Range(.[b1], .Cells(.Rows.Count, 2))
   End With
    
   For Each c In r.Cells
     Set mc = re.Execute(c.Value)
     For i = 0 To mc.Count - 1
       If d.exists(mc(i).submatches(0)) Then
         x = Split(d(mc(i).submatches(0)), "|")
         s = "[" & mc(i).submatches(0) & ":" & mc(i).submatches(1) & ":" & x(0) & ":" _
           & mc(i).submatches(3) & ":" & x(1) & "]"
       Else
         s = "[" & mc(i).submatches(0) & ":" & mc(i).submatches(1) & ":0:" _
           & mc(i).submatches(3) & ":0]"
       End If
       c.Value = Replace(c.Value, mc(i), s)
     Next
   Next
End Sub

If a(i, 1) > "" Then d(a(i, 1)) = a(i, 2) & "|" & a(i, 3)

If CStr(a(i, 1)) > "" Then d(CStr(a(i, 1))) = a(i, 2) & "|" & a(i, 3)