Автоматическая настройка ширины столбцов в Excel при исключении определенных ячеек/строк

Question

Я искал ответы на несколько вопросов несколько раз, но я никогда не встречал аналогичный вопрос. Каждый всегда хочет знать, как настроить ширину столбцов, это легко, у меня есть гораздо более тонкий вопрос.

Я люблю автоматическую настройку, делает чисто выглядящие таблицы и гарантирует, что все будет видно (aka; ctrl-a, двойной щелчок вверху между столбцами), но если у вас есть одна ячейка с длинным фрагментом текста (например, заметки в нижней части таблицы), он делает этот столбец шириной в 400 пикселей для захвата всего текста, когда я просто хотел его обновить для каждого заголовка столбца или данных таблицы. Я бы хотел, чтобы эта текстовая ячейка была помечена значком excel для автоматической настройки.

Если вы в порядке с Центрированием, вы можете установить выравнивание ячеек (и 1 ячейку справа) на «Центр по выбору», и оно будет проигнорировано. Но, как и в моем примере выше, я часто хочу, чтобы этот текст был оправдан влево или вправо, не позволяя C.A.S. работать.

Неужели кто-нибудь смог это сделать?

Answer 1

Если вы согласны с решением VBA, вы можете написать обычную процедуру для этого. В этом примере, если вы передаете диапазон, который вы хотите «Автоподбор Только заголовки», он будет существенно скопировать заголовок в чистую клетку, запустить AUTOFIT, а затем применить эту autofitted ширину вашей колонки:

Sub AutoFitHeader(HeaderRow As Range) 

    Dim col As Range 
    Dim ws As Worksheet 
    Set ws = ActiveWorkbook.Worksheets.Add 
    ws.Visible = xlSheetHidden 

    Application.DisplayAlerts = False 

    For Each col In HeaderRow 
    ws.Range("A1").Value = col.Value 
    ws.Columns("A").AutoFit 

    col.EntireColumn.ColumnWidth = ws.Columns("A").ColumnWidth 
    Next col 

    ws.Delete 

    Application.DisplayAlerts = True 

End Sub 

И затем назовите его таковым:

AutoFitHeader Range("A1:H1")