=ИНДЕКС('Лист1 (2)'!AE:AE;НАИМЕНЬШИЙ(ЕСЛИ(('Лист1 (2)'!C:C=Лист1!$C$1)*('Лист1 (2)'!AF:AF=Лист1!$D$1);СТРОКА('Лист1 (2)'!AE:AE)-СТРОКА('Лист1 (2)'!AE$1)+1;"");СТРОКА(A1)))

Sub Зберегти2()
    Application.ScreenUpdating = False
    Dim sourceRange As Range
    Dim targetRow As Long
    Dim numRows As Long
    Set sourceRange = ThisWorkbook.Sheets("Табл").Range("ТН")
    Sheets("Архів").Select
    targetRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    sourceRange.Copy
    Range("C" & targetRow).PasteSpecial Paste:=xlPasteValues
    Range("A" & targetRow & ":A" & targetRow + sourceRange.Rows.Count - 1).Value = Date
    Range("B" & targetRow).FormulaR1C1 = "=R[-1]C+1"
    Application.ScreenUpdating = True
    MsgBox "Готово! Дані збережено", vbInformation, "Сообщение"
End Sub

=ЕСЛИОШИБКА(ЕСЛИ(ИЛИ(НАЙТИ("P"; H26)=1; НАЙТИ("Z"; H26)=1);"Перемещение";"");"")

Sub test2()
    Dim i As Long
    Dim MyRange As Range
    Dim dict As Object
    Dim key As String
    Set dict = CreateObject("Scripting.Dictionary")
     Set MyRange = Range("T4:V" & Cells(Rows.Count, "T").End(xlUp).Row)
    For i = 4 To Cells(Rows.Count, "T").End(xlUp).Row
        If Range("T" & i).Value <> "" And Range("V" & i).Value <> "" Then
        
            key = Range("T" & i).Value & "|" & Range("V" & i).Value
                   
            If dict.Exists(key) Then
                dict(key) = dict(key) + 1
            Else
                dict.Add key, 1
            End If
        End If
    Next i
  
    For i = 4 To Cells(Rows.Count, "T").End(xlUp).Row
        If Range("T" & i).Value <> "" And Range("V" & i).Value <> "" Then
            key = Range("T" & i).Value & "|" & Range("V" & i).Value
            
            If dict(key) > 1 Then
                Range("T" & i).Interior.ColorIndex = 3
                Range("V" & i).Interior.ColorIndex = 3
            End If
        End If
    Next i
End Sub

Sub test()

    Dim i As Long
    Dim MyRange As Range
    Dim MeCel As Range
    Dim Count As Long

   
    Set MyRange = Range("T4:V" & Cells(Rows.Count, "T").End(xlUp).Row)

    
    For i = 4 To Cells(Rows.Count, "T").End(xlUp).Row
        If Range("T" & i).Value <> "" And Range("V" & i).Value <> "" Then
          
            Count = WorksheetFunction.CountIfs(Range("T4:T" & Cells(Rows.Count, "T").End(xlUp).Row), Range("T" & i).Value, _
                                               Range("V4:V" & Cells(Rows.Count, "V").End(xlUp).Row), Range("V" & i).Value)
            
            If Count > 1 Then
                Range("T" & i).Interior.ColorIndex = 3
                Range("V" & i).Interior.ColorIndex = 3
            End If
        End If
    Next i

End Sub

=ЕСЛИ(И(C2<=F2; F2>0); F2; 0)

=ПРАВСИМВ((ПСТР(A1;1;ПОИСК("ML";A1;1)-1));3)&" ML"