Sub HighlightMinValueInRows()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
 
    Dim searchText As String
    searchText = "ИТОГО с учетом индексации и курсов валют с НДС 22%"
 
    Dim r As Long
    Dim c As Long
    Dim minVal As Variant
    Dim minCell As Range
    Dim lastCol As Long
    Dim cellValue As Variant
    Dim numVal As Double
 
    Application.ScreenUpdating = False
 
    For r = 1 To lastRow
        ' Проверяем, соответствует ли ячейка в столбце C искомому тексту
        If ws.Cells(r, "C").Value = searchText Then
            ' Определяем последний заполненный столбец в текущей строке
            lastCol = ws.Cells(r, ws.Columns.Count).End(xlToLeft).Column
            minVal = Empty
            Set minCell = Nothing
            For c = 1 To lastCol
                cellValue = ws.Cells(r, c).Value
                ' Проверяем, что значение числовое
                If IsNumeric(cellValue) Then
                    ' Преобразуем в число для сравнения
                    numVal = CDbl(cellValue)
                    If IsEmpty(minVal) Or numVal < minVal Then
                        minVal = numVal
                        Set minCell = ws.Cells(r, c)
                    End If
                End If
            Next c
            ' Если минимальное число найдено — выделяем ячейку жёлтым
            If Not minCell Is Nothing Then
                minCell.Interior.Color = vbYellow
            End If
        End If
    Next r
 
    Application.ScreenUpdating = True
    MsgBox "Готово! Минимальные значения выделены жёлтым.", vbInformation
 
End Sub

=ЕСЛИОШИБКА(ИНДЕКС(Лист1!$H$1:$H$20362;ЕСЛИОШИБКА(ПОИСКПОЗ("*"&ЗНАЧЕН(C4)&"*";Лист1!F:F;0);ЕСЛИОШИБКА(ПОИСКПОЗ("*"&C4&"*";Лист1!F:F;0);20362+1)));"Нет совпадений")

=ЗНАЧЕН(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A3;"|";ПОВТОР(" ";100));ПОИСК(B$2&"-";ПОДСТАВИТЬ($A3;"|";ПОВТОР(" ";100)))+ДЛСТР(B$2)+1;100)))

Function ВЫТАЩИТЬ2(строка As String, символ1 As String, символ2 As String) As String
    Dim arr As Variant, brr As Variant, crr As Variant
    arr = Split(строка, символ1)
    ReDim brr(LBound(arr) To UBound(arr))
    
    Dim vv As Variant, yb As Long, xc As Long
    yb = LBound(brr) - 1
    For Each vv In arr
        crr = Split(vv, символ2)
        If UBound(crr) > LBound(crr) Then
            yb = yb + 1
            If InStr(crr(UBound(crr)), ".") = 0 Then
                xc = UBound(crr)
            Else
                xc = LBound(crr)
            End If
            brr(yb) = crr(xc)
        End If
    Next
    If yb >= LBound(brr) Then
        ReDim Preserve brr(LBound(brr) To yb)
        ВЫТАЩИТЬ2 = Join(brr, "+")
    End If
End Function

=ВЫТАЩИТЬ2(A1;"/";"-")
=ВЫТАЩИТЬ2(A1;"-";"/") 'будет работать, как предыдущий вариант.

Function ВЫТАЩИТЬ(строка As String, символ As String) As String
    Dim arr As Variant, brr As Variant, crr As Variant
    arr = Split(строка, "-")
    ReDim brr(LBound(arr) To UBound(arr))
    
    Dim vv As Variant, yb As Long
    yb = LBound(brr) - 1
    For Each vv In arr
        crr = Split(vv, символ)
        If UBound(crr) > LBound(crr) Then
            yb = yb + 1
            brr(yb) = crr(UBound(crr))
        End If
    Next
    If yb >= LBound(brr) Then
        ReDim Preserve brr(LBound(brr) To yb)
        ВЫТАЩИТЬ = Join(brr, "+")
    End If
End Function

=ВЫТАЩИТЬ(A1;"/")

=СЧЁТЕСЛИМН(B:B;СЖПРОБЕЛЫ(A1)&"*")>0

=СЧЁТЕСЛИМН(B:B;A2)>0

=СЧЁТЕСЛИМН(A:A;B2)>0

Sub Удалить_дубликаты()
    CloseEmptyWb

    Dim arr As Variant
    arr = GetPrintArray(Range("A2").CurrentRegion)
    
    PrintArray arr
End Sub

Private Sub PrintArray(arr As Variant)
    Workbooks.Add (1)
    Dim rr As Range
    Set rr = Cells(2, 1).Resize(UBound(arr, 1), UBound(arr, 2))
    rr.Value = arr
    rr.Columns(1).EntireColumn.AutoFit
    
    rr.Parent.Parent.Saved = True
End Sub

Private Function GetPrintArray(source As Range) As Variant
    Dim arr As Variant
    arr = Intersect(source, source.Parent.UsedRange).Columns("A:B").Value
    
    Dim dic As Object
    Set dic = GetDic(arr)
    
    Dim brr As Variant, yb As Long
    ReDim brr(1 To dic.Count, 1 To 2)
    For yb = 1 To UBound(brr, 1)
        brr(yb, 1) = dic.keys()(yb - 1)
        brr(yb, 2) = Join(dic.Items()(yb - 1).keys(), " ")
    Next
    GetPrintArray = brr
End Function

Private Function GetDic(arr As Variant) As Object

    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    Dim ya As Long
    For ya = 1 To UBound(arr, 1)
        If IsEmpty(arr(ya, 1)) Then
        ElseIf IsEmpty(arr(ya, 2)) Then
        Else
            If Not dic.Exists(arr(ya, 1)) Then
                Set dic(arr(ya, 1)) = CreateObject("Scripting.Dictionary")
            End If
            dic(arr(ya, 1))(arr(ya, 2)) = Empty
        End If
    Next
    
    Set GetDic = dic
End Function

Private Sub CloseEmptyWb()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If wb.Path = "" Then wb.Close False
    Next
End Sub

=ЕСЛИОШИБКА(ИНДЕКС(Факт!$C$1:$C$99;100-НАИБОЛЬШИЙ((Таблица2[Заказчик]=Таблица6[@ЗАКАЗЧИК])*(100-СТРОКА(Таблица2[Заказчик]));СТОЛБЕЦ(A:A)));" ")

=СМЕЩ(D2;0;0;1;ПОИСКПОЗ(" ";D2:G2;0)-1)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Const doc = "F26"
    Const prn = "E29:H30"
    Const VALUE_MODE = False
    
    If Intersect(Target, Range(doc)) Is Nothing Then Exit Sub
    
    Dim tb As ListObject
    Set tb = ActiveSheet.ListObjects(1)
    
    Dim aTarget As Variant
    With Range(prn)
        ReDim aTarget(1 To .Rows.Count, 1 To .Columns.Count)
    End With
    
    Dim aSource As Variant
    On Error Resume Next
    aSource = tb.ListColumns(Range(doc).Value).DataBodyRange.Value
    On Error GoTo 0
    If Not IsEmpty(aSource) Then
        Dim aNN As Variant
        aNN = tb.ListColumns("НН").DataBodyRange.Value
        Dim ySource As Long, xTarget As Long
        For ySource = 1 To UBound(aSource, 1)
            If Not IsEmpty(aSource(ySource, 1)) Then
                xTarget = xTarget + 1
                If xTarget > UBound(aTarget, 2) Then Exit For
                If VALUE_MODE Then
                    aTarget(1, xTarget) = aNN(ySource, 1)
                    aTarget(2, xTarget) = aSource(ySource, 1)
                Else
                    aTarget(1, xTarget) = "=" & tb.ListColumns("НН").DataBodyRange.Cells(ySource, 1).Address(0, 0, xlA1)
                    aTarget(2, xTarget) = "=" & tb.ListColumns(Range(doc).Value).DataBodyRange.Cells(ySource, 1).Address(0, 0, xlA1)
                End If
            End If
        Next
    End If
    Range(prn).Value = aTarget
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   'проверка: если столбец не I - выход
   If Target.Column <> 9 Then Exit Sub
   'проверка: если строка меньше 2 - выход
   If Target.Row < 2 Then Exit Sub
   'проверка: если изменили более одной ячейки - выход
   If Target.Count > 1 Then Exit Sub
   'проверка: если в ячейку ничего не ввели(удаление) - выход
   If Len(Target) = 0 Then Exit Sub
      
   Dim s$, sFolder As String
   
   With CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\tmp\1.txt", 1)
        Do
            If .AtEndOfStream Then Exit Do
            sFolder = .ReadLine
            'создаем путь к файлу
            s = sFolder & Target.Value & ".pdf"
            If Dir(s) <> "" Then
                'отключаем отслеживание событий, чтобы не было зацикливания при создании ссылки
                Application.EnableEvents = 0
                'создаем гиперссылку
                Me.Hyperlinks.Add Anchor:=Target, Address:=s, TextToDisplay:=CStr(Target.Value)
                'возвращаем отслеживание событий
                Application.EnableEvents = 1
                Exit Do
            End If
            DoEvents
        Loop
    End With
End Sub

*(ДЕНЬНЕД($R$2:$NR$2;2)<6)

Private Sub Worksheet_Change(ByVal Target As Range)
   'проверка: если столбец не I - выход
   If Target.Column <> 9 Then Exit Sub
   'проверка: если строка меньше 2 - выход
   If Target.Row < 2 Then Exit Sub
   'проверка: если изменили более одной ячейки - выход
   If Target.Count > 1 Then Exit Sub
   'проверка: если в ячейку ничего не ввели(удаление) - выход
   If Len(Target) = 0 Then Exit Sub
     
   Dim s$
   Dim vFolder As Variant
   For Each vFolder In Array("C:\tmp\", "C:\temp\")
        'создаем путь к файлу
        s = vFolder & Target.Value & ".pdf"
        If Dir(s) <> "" Then
            'отключаем отслеживание событий, чтобы не было зацикливания при создании ссылки
            Application.EnableEvents = 0
            'создаем гиперссылку
            Me.Hyperlinks.Add Anchor:=Target, Address:=s, TextToDisplay:=CStr(Target.Value)
            'возвращаем отслеживание событий
            Application.EnableEvents = 1
            Exit For
        End If
    Next
End Sub

=СУММ(($R$2:$NR$2>=F3)*($R$2:$NR$2<=H3)*(ДЕНЬНЕД($R$2:$NR$2;2)<6)*(ЕНД(ПОИСКПОЗ($R$2:$NR$2;Лист2!$A$1:$A$14;0)))*1)

=СУММ(($R$2:$NR$2>=F3)*($R$2:$NR$2<=H3)*(ДЕНЬНЕД($R$2:$NR$2;2)<6)*($R$2:$NR$2<>ДАТА(2026;5;1))*($R$2:$NR$2<>ДАТА(2026;5;11))*1)

=СУММ(($R$2:$NR$2>=F3)*($R$2:$NR$2<=H3)*(ДЕНЬНЕД($R$2:$NR$2;2)<6)*1)

Public ProcessCount As Long

=ДВССЫЛ(ДВССЫЛ(СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ЯЧЕЙКА("адрес");"$";ПОВТОР(" ";10));20))&20*ЦЕЛОЕ(СТРОКА()/20)+9))

=ДВССЫЛ(ДВССЫЛ("C"&20*ЦЕЛОЕ(СТРОКА()/20)+9))

=ДВССЫЛ($C$9)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Range("A1").Value
        Case "Значение1", "Значение2"
            'А4-А6 не изменияются
        Case "Значение3", "Значение4"
            'А5,А6 скрываются
            Range("A5:A6").EntireRow.Hidden = True
        Case "Значение5", "Значение6"
            'А4,А5 скрываются
            Range("A4:A5").EntireRow.Hidden = True
        Case Else
            Range("A4:A6").EntireRow.Hidden = False
        End Select
    End If
End Sub