Option Explicit
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Const nn As Long = 45 'Номер столбца
Public Const nn2 As String = "Бизнес-тема.xlsx" 'Название книги
Public Const nn3 As String = "Каталог" 'Название листа
Sub Basa()
Dim a(), b(), t$, ii&, i&, x&, ss$, d&, z&, Dict As Object, tt As Object
Dim w As Workbook, v As Worksheet
         d = timeGetTime
        Application.ScreenUpdating = False
         For Each w In Application.Workbooks
             If w.Name = nn2 Then
                 With w.Sheets(nn3)
                     ii = .Cells(.Rows.Count, 1).End(xlUp).Row
                     a = Range(.Cells(1, 1), .Cells(ii, 4))
                 End With
                 Exit For
             End If
         Next
         Application.StatusBar = "Подготовка данных. Всего строк  " & ii
         With CreateObject("Scripting.Dictionary")
             For i = 2 To UBound(a)
                 .Item(a(i, 1) & "|" & a(i, 3)) = a(i, 4)
             Next
             ii = Cells(Rows.Count, 2).End(xlUp).Row
             a = Range("B1:M" & ii).Value
        b = Range(Cells(1, nn), Cells(ii, nn)).Value
             For x = 2 To ii
                 t = a(x, 1) & "|" & a(x, 12)
                 If .Exists(t) Then
                  If Len(b(x, 1)) = 0 Then ''''''
                      Cells(x, nn) = .Item(t): z = z + 1
                   End If
                 If 0 = (x Mod 10000) Then
                   Application.StatusBar = "В строке №  " & x & "  Найдено: " & z
                 End If
                 End If
             Next x
         End With
         d = timeGetTime - d
         i = MsgBox(d & Chr(13) & Chr(13) & "Найдено совпадений: " & z, vbInformation, "Время выполнения миллисекунд")
         Application.StatusBar = False
End Sub
Sub cilki()
         If Application.ReferenceStyle = xlR1C1 Then
             Application.ReferenceStyle = xlA1
            Else
            Application.ReferenceStyle = xlR1C1
         End If
End Sub