Подгон высоты ячейки под длину текста (переделать)

'Типа автоформат 
Sub SetRowHeight()

Application.ScreenUpdating = False
    For Each ac In Selection
       sss = Round(Len(ac.Value) / ac.ColumnWidth, 0)
        If ac.ColumnWidth * 2 < Len(ac.Value) Then
            ac.RowHeight = sss
        Else: ac.RowHeight = ac.RowHeight
        End If
    Next
Application.ScreenUpdating = True
End Sub

Добавить комментарий

Ваш адрес email не будет опубликован.