Macro to shorten cell text

Question

excel

It is required to create a macro that looks through all the cells of the specified column, and those in which the text length is more than N characters are reduced to N.
Please post the finished code :)

Answer 1

Sub text_cut()
Dim i As Long, col As Long, text As String, q, lr
q = 4 ' количество символов
col = 1 ' номер столбца
lr = Cells(Rows.Count, col).End(xlUp).Row
    For i = 1 To lr
        text = Cells(i, col).Value
        Cells(i, col).Value = Left(text, q)
        Next i
    End
End Sub

Answer 2

You need a freelance exchange.