Function RUS(s$) As String
    Dim i%, ascii%, tmp$
    For i = 1 To Len(s)
        ascii = Asc(Mid(s, i, 1))
        If (ascii >= 192 And ascii <= 255 Or ascii = 32) Then _
        tmp = tmp & LCase(Mid(s, i, 1)) Else _
        tmp = tmp & Mid(s, i, 1)
    Next i
    RUS = Trim(tmp)
End Function

Public Sub www()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.SpecialCells(2).Cells
        c = RUS(c.Value)
    Next
End Sub


Public Function Lol(astring) As String
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "[А-Я-Ё]"
    re.Global = True
    re.IgnoreCase = False
    Set Matches = re.Execute(astring)
    For Each symbol In Matches
        astring = Replace(astring, symbol, LCase(symbol))
    Next symbol
    Lol = astring
End Function


Public Sub rr()
    Dim arr(), i&
    With CreateObject("ScriptControl")
        .Language = "JScript"
        .AddCode "function a(b){return b.replace(/[А-ЯЁ]/gm,function(c){return c.toLowerCase()})}"
        arr = Selection.Value
        For i = LBound(arr) To UBound(arr)
            If Len(arr(i, 1)) Then arr(i, 1) = .Run("a", arr(i, 1))
        Next
        Selection.Value = arr
    End With
End Sub