Автоширина колонки по видимым ячейкам - VBA

Узнай цену своей работы

Формулировка задачи:

Есть ли у кого идеи как сделать ширину колонки по самой длинной строке из диапазона видимых ячеек (в примере из диапазона А1:А9)
Потыкался с помощью SpecialCells(xlCellTypeVisible) - не получилось.

Решение задачи: «Автоширина колонки по видимым ячейкам»

textual
Листинг программы
Sub fff()
    Cells(1, 1) = "a"
    Cells(2, 1) = "aaa"
    '...
    Cells(9, 1) = "aa"
    Cells(10, 1) = "aaaaaaaaaaaa"
    Rows(10).Hidden = True
    For Each x In Range("a1:a10").SpecialCells(xlCellTypeVisible)
        wd = IIf(Len(x) > wd, Len(x), wd)
    Next
    Columns.EntireColumn.ColumnWidth = wd
End Sub

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы