Function tt(t As String) As String
    Dim col As Object, arr, i  As Long
    Set col = CreateObject("scripting.dictionary")
    col.comparemode = Text
    arr = Split(t)
    For i = 0 To UBound(arr)
        If col.exists(arr(i)) Then arr(i) = "" Else col.Add arr(i), 0
    Next
    tt = Join(arr)
End Function

Sub tt()
    Dim arr(), arr1(), arr2(), i As Long, m As Object, u As Long
    On Error Resume Next
    arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    If Err Then
        ReDim arr(1 To 1, 1 To 1)
        arr(1, 1) = Range("A2")
        Err.Clear
    End If
    u = UBound(arr)
    ReDim arr1(1 To u, 1 To 1): ReDim arr2(1 To u, 1 To 1)
    With CreateObject("VBScript.Regexp")
        .IgnoreCase = True
        .Pattern = "[а-яё ]{1,30} "
        For i = 1 To u
            Set m = .Execute(arr(i, 1))
            If m.Count <> 0 Then
                arr1(i, 1) = Trim(m(0))
                arr2(i, 1) = Trim(Right(arr(i, 1), Len(arr(i, 1)) - Len(arr1(i, 1))))
            End If
        Next
    End With
    Range("B2").Resize(u, 1) = arr1
    Range("C2").Resize(u, 1) = arr2
End Sub

Function tt$(text As String)
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "(^|\D)0+"
        tt = .Replace(text, "$1")
        .Pattern = "(^.+?-)|(/[^/]+)"
        tt = .Replace(tt, " ")
    End With
End Function

Function tt$(text As String)
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "(^|\D)0+"
        tt = .Replace(text, "$1")
    End With
End Function

=ОТБР(A1/100) & " п. " & ОСТАТ(A1;100) & " б."

=СУММПРОИЗВ(--(G7:G35<B4);--(G7:G35<>"");--(J7:J35<>"выполнено"))

Sub tt()
    Dim arr(), i As Long
    arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[^\d\.,]"
        For i = 1 To UBound(arr)
            If .test(arr(i, 1)) Then arr(i, 1) = ""
        Next
    End With
    Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) = arr
End Sub

Sub tt(N As Integer)
    Range("A" & Cells(Rows.Count, "A").End(xlUp).Row) = N
End Sub
 

Sub tt_1()
    Call tt(1)
End Sub

Sub tt()
    Dim Rng As Range, arr(), i
    Set Rng = Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row)
    arr = Rng
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) <> 0 Then arr(i, 1) = WorksheetFunction.Trim(arr(i, 1))
    Next
    Rng = arr
End Sub

Sub ttt()
    Dim Rng As Range, arr(), i
    Set Rng = Range("J1:J" & Cells(Rows.Count, "J").End(xlUp).Row)
    arr = Rng
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) <> 0 Then arr(i, 1) = RTrim(arr(i, 1))
    Next
    Rng = arr
End Sub

Sub tt()
    Dim arr(), i As Long, Rng As Range
    Set Rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    arr = Rng
    On Error Resume Next
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "#.*?( |$)"
        .MultiLine = True
        For i = 1 To UBound(arr)
            arr(i, 1) = WorksheetFunction.Trim(.Replace(arr(i, 1), ""))
        Next
    End With
    Sheets("лист1").Range("A1").Resize(UBound(arr)) = arr
End Sub