Как автоматически подогнать ширину столбца в 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?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек