Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub

Sub test()
     Dim z, i&: z = Range("J1:J" & Range("J" & Rows.Count).End(xlUp).Row).Value
  With CreateObject("VBScript.RegExp"): .Pattern = "\u\d+"
    For i = UBound(z) To 1 Step -1: If .test(z(i, 1)) Then Rows(i).Delete
    Next
  End With
End Sub

Sub Макрос()

    Dim arr(), lr As Long, i As Long
    
    Application.ScreenUpdating = False
    
    lr = Columns("J").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    arr() = Range("J1:J" & lr).Value
    
    For i = UBound(arr) To 1 Step -1
        If InStr(1, arr(i, 1), "\u", vbTextCompare) = 1 Then
            Rows(i).Delete
        End If
    Next
    
    Application.ScreenUpdating = True

End Sub

Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub
Sub ggg()
    Dim cell As Range, rng As Range, addr$
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        addr = cell.Address
        Do
            If rng Is Nothing Then Set rng = cell _
                Else Set rng = Union(rng, cell)
            Set cell = Columns(10).FindNext(cell)
        Loop While cell.Address <> addr
        If Not rng Is Nothing Then rng.EntireRow.Delete
    End If
End Sub