Sub PodsvetkaDubleiURL()
    Dim Dupes()     'объявляем массив для хранения дубликатов
    ReDim Dupes(1 To Selection.Cells.Count, 1 To 2)
     
    Selection.Interior.ColorIndex = -4142   'убираем заливку если была
    i = 3
    For Each cell In Selection
        If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then
            For k = LBound(Dupes) To UBound(Dupes)
                'если ячейка уже есть в массиве дубликатов - заливаем
                If Dupes(k, 1) = cell Then cell.Interior.ColorIndex = Dupes(k, 2)
            Next k
            'если ячейка содержит дубликат, но еще не в массиве - добавляем ее в массив и заливаем
            If cell.Interior.ColorIndex = -4142 Then
                cell.Interior.ColorIndex = i
                Dupes(i, 1) = cell.Value
                Dupes(i, 2) = i
                i = i + 1
            End If
        End If
    Next cell
End Sub

Sub ЗмінитиЗначенняНДХ()    Dim LastRow As Long
    Dim PriceRange As Range
    Dim cell As Range
    
    LastRow = Cells(Rows.Count, "I").End(xlUp).Row
    
    For Each cell In Range("I2:I" & LastRow)

        If IsNumeric(cell.Value) Then
            Dim Price As Double
            Price = CDbl(cell.Value)
                    
            For Each PriceRange In Range("B2:B" & LastRow)
                If PriceRange.Value Like "*ндх*" Then
                    ' Замініть текст "ндх" відповідно до ціни
                    If Price >= 0 And Price <= 1100 Then
                        PriceRange.Value = "ндх 400"
                    ElseIf Price > 1100 And Price <= 1800 Then
                        PriceRange.Value = "ндх 600"
                    ElseIf Price > 1800 And Price <= 2500 Then
                        PriceRange.Value = "ндх 900"
                    End If
                End If
            Next PriceRange
        End If
    Next cell
End Sub

INSERT INTO `cs_seo_redirects` (`redirect_id`, `src`, `dest`, `type`, `object_id`, `company_id`, `lang_code`, `ab__seo_filter_id`) VALUES

Public Function GetNumbers(TargetCell As Range) As String 
Dim LenStr As Long 
For LenStr = 1 To Len(TargetCell) 
Select Case Asc(Mid(TargetCell, LenStr, 1)) 
Case 48 To 57 
GetNumbers = GetNumbers & Mid(TargetCell, LenStr, 1) 
End Select 
Next 
End Function

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(Данные!A$2;"Фраза 3";Данные!M4);"Фраза 2";Данные!L4);"Фраза 1";Данные!K4);"УРЛ";Данные!J4);"ГОРОД";Данные!B4);"СЛОВА";MultiCat(Данные!N4:Данные!AQ4))