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

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

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, после чего откроется окно Microsoft Visual Basic for Applications.

2. Затем дважды щелкните ThisWorkbook в объектах проекта 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. Удерживая клавишу Alt, нажмите H + O + I, и теперь ширина ваших столбцов будет автоматически подогнана под их содержимое. Смотрите скриншот:

Примечание: Если вы используете Excel 2003 или более раннюю версию, вам нужно использовать следующие сочетания клавиш: ALT + O + C + A.

Связанные статьи:

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

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