Как автоматически подогнать ширину столбца в Excel?

В Excel вы можете быстро настроить ширину столбца в соответствии с содержимым ячейки, используя Автоподбор Ширина столбца особенность. Иногда вам нужно, чтобы ширина столбца автоматически обновлялась на основе самого длинного текста в этом столбце, то есть при вводе какой-либо длинной текстовой строки в ячейку ширина столбца будет автоматически изменена в соответствии с длиной содержимого. Можно ли с этим справиться в Excel?

Автоматическая подгонка ширины столбцов с кодом VBA

Автоматическая подгонка ширины столбцов с помощью сочетаний клавиш

Автоматическая подгонка ширины столбцов с кодом VBA

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

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Затем дважды щелкните Эта рабочая тетрадь в Проект VBA объекты на левой панели, чтобы открыть пустой модуль, а затем скопируйте и вставьте следующий код VBA в модуль:

Код VBA: столбец с автоматическим подбором в книге

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

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

Автоматическая подгонка ширины столбцов с помощью сочетаний клавиш

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

1. Выберите диапазон данных, для которого вы хотите изменить ширину столбца.

2, Удерживать другой нажмите и нажмите Н + О + Я, и теперь ширина ваших столбцов сразу же автоматически подогнана под их содержимое. Смотрите скриншот:

Примечание: Если вы используете Excel 2003 и более раннюю версию, вам необходимо использовать следующие сочетания клавиш: АЛТ + О + С + А.

Статьи по теме:

Как автоматически подогнать высоту строки объединенных ячеек в Excel?

Как изменить размер строки или ширины столбца в соответствии с текстом в Excel?