Макрос для сокращения текста ячейки

Question

[Антон]

Требуется создать макрос, просматривающий все ячейки указанного столбца, и те, в которых длина текста больше N символов сократить до N.
Просьба выложить готовый код :)

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

Comments

[Антон]

отлично, спасибо

Answer 2

[GavriKos]

Вам на фриланс-биржу надо.