Sub Test()
    Dim a(), b(), c(), i&, ii&
    a = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    b = Range("C2:D" & Cells(Rows.Count, 3).End(xlUp).Row).Value
    ReDim c(1 To UBound(b), 1 To 2)
    ii = 1
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a)
            .Item(a(i, 1)) = i
        Next
        
        For i = 1 To UBound(b)
            If .Exists(b(i, 1)) Then
                c(ii, 1) = b(i, 1)
                c(ii, 2) = b(i, 2)
                ii = ii + 1
            End If
        Next
    End With
    [e2].Resize(ii - 1, 2).Value = c
End Sub

Sub www()
    Dim a(), c(), i&, uu&
    a = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim c(1 To UBound(a), 1 To 3)
    For i = 1 To UBound(a)
        For uu = 1 To 3
            If a(i, 1) = "" Then c(i, uu) = "" Else c(i, uu) = a(i, uu)
    Next uu, i
    [a1].Resize(UBound(c), 3) = c
End Sub

Option Explicit
Dim x&

Sub plus()
    x = Cells(Rows.Count, 2).End(xlUp).Row+1
    Range("B" & x).Value = Range("C17").Value
    Range("C" & x).Value = Range("C18").Value
    Range("D" & x).Value = Range("C19").Value
    Range("E" & x).Value = Range("C21").Value
End Sub

Sub minus()
    x = ActiveCell.Row
    Rows(x).EntireRow.Delete
End Sub

Private Sub TextBox1_Change()
    Sheets("Лист1").[A1].Value = TextBox1.Value * 1
End Sub

=СУММЕСЛИ(реестры!$E$6:$E$128;A7;реестры!$J$6:$J$128)

=ИНДЕКС(A2:A9;НАИМЕНЬШИЙ(ЕСЛИ(ИНДЕКС(B2:E9;;ПОИСКПОЗ(A12;B1:E1;0))=B12;СТРОКА(B2:B9)-1);2))

Sub tt()'HUGO
    Dim a(), i&, t$, tarr, el, elel, x
    For x = 1 To 2
        a = [c8].CurrentRegion.Value
        With Application
            .ScreenUpdating = False

            With CreateObject("Scripting.Dictionary")


                For i = 1 To UBound(a)
                    t = a(i, 3)

                    If Not .exists(t) Then
                        .Item(t) = Array(New Collection, a(i, x), 0)
                    Else
                        If .Item(t)(2) = 0 Then
                            If .Item(t)(1) <> a(i, x) Then
                                tarr = .Item(t): tarr(2) = 1: .Item(t) = tarr
                            End If
                        End If
                    End If

                    .Item(t)(0).Add i
                Next

                For Each el In .keys
                    If .Item(el)(2) = 1 Then
                        For Each elel In .Item(el)(0)
                            Cells(elel + 7, x + 2).Resize(, 1).Interior.Color = vbRed
                        Next
                    End If
                Next
            End With
            .ScreenUpdating = True
        End With
    Next
End Sub

=ПРАВСИМВ(ЯЧЕЙКА("имяфайла");ДЛСТР(ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла")))