Как автоматически подогнать высоту строки с объединёнными ячейками в Excel?
В Excel точная и быстрая настройка высоты строки имеет решающее значение для чёткого представления данных. Обычно можно воспользоваться функцией Автоподбор высоты строки, чтобы автоматически подогнать высоту строки под содержимое ячеек. Однако при работе с объединёнными ячейкамиВы могли заметить, что автоподбор высоты строки работает некорректно. Дело в том, что Excel полностью игнорирует объединённые ячейки при использовании этой функции, поэтому автоматически подогнать высоту строки под всё содержимое невозможно. В итоге приходится вручную настраивать высоту строки для каждой объединённой ячейки, чтобы отобразить весь текст — процесс утомительный и чреватый ошибками, особенно если таких ячеек много.
В этой статье описаны несколько практических способов автоматической подгонки Высота строки Объединенный, которые помогут сэкономить время и сохранить чистый и удобочитаемый лист:
Автоматическая подгонка Высота строки Объединенный с помощью кода VBA
Использование переноса по словам и ручная настройка
Автоматическая подгонка Высота строки Объединенный с помощью кода VBA
Предположим, ваш лист содержит несколько Объединенный с разным объемом содержимого, как показано на скриншоте ниже. Если вы хотите, чтобы все данные были полностью видны без ручной настройки каждой строки, вы можете воспользоваться решением на основе кода VBA, чтобы сразу автоматически подогнать Высота строки под содержимое каждой объединенной ячейки. Этот метод особенно полезен, когда в вашем листе много объединенных диапазонов или когда содержимое объединенных ячеек часто обновляется, и вы хотите упростить процесс настройки.
Прежде чем запускать любой код VBA, не забудьте сохранить книгу как файл с поддержкой макросов, чтобы избежать потери несохраненных данных. VBA — это безопасный метод, предоставляемый Excel, но убедитесь, что макросы включены и параметры безопасности вашей системы разрешают их выполнение.
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль, затем скопируйте и вставьте приведённый ниже код в окно Модуль:
Код VBA: Автоматическая подгонка Высота строки нескольких ОбъединенныйOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
Примечания:
(1.) Если нужно настроить дополнительные объединённые диапазоны, просто скопируйте строку Call AutoFitMergedCells(Range("a1:b2"))столько раз, сколько необходимо, и обновите адрес для каждого объединённого диапазона, который требуется автоматически подогнать.
(2.) Не забудьте заменить Sheet4 в скрипте на имя листа, где расположены ваши объединённые данные. Если вы не уверены в имени своего листа, проверьте вкладки листов в нижней части окна Excel.
(3.) При запуске макросов убедитесь, что в Выберите диапазон случайно не попали ячейки с важными или конфиденциальными данными, чтобы избежать непредвиденных изменений форматирования.
3. Нажмите клавишу F5, чтобы запустить этот код. После выполнения все указанные объединённые ячейки автоматически изменят свою высоту строк, чтобы полностью отобразить содержимое, как показано ниже:
Это решение на основе VBA предлагает удобный и автоматизированный способ управления размерами объединённых ячеек. Однако имейте в виду: для его использования необходим доступ к вкладке «Разработчик» и разрешение на выполнение макросов — особенно если вы работаете в средах, где макросы отключены или ограничены.
Использование переноса по словам и ручная настройка
Во многих случаях можно комбинировать функцию «Перенос по словам» с быстрой ручной настройкой Высота строки, чтобы обеспечить полную видимость содержимого без использования VBA или сложных инструментов.
Шаг 1: Включите перенос по словам
- Выделите объединенные ячейки, которые необходимо отформатировать.
- Перейдите на вкладку Главная и нажмите кнопку Перенос по словам в группе Выравнивание.
Это позволит содержимому автоматически переноситься на Перевод строки в пределах объединенной области.
Шаг 2: Проверьте отображение и при необходимости вручную отрегулируйте Высота строки
Если ваш текст не слишком длинный, он теперь идеально поместится в объединённой ячейке.
Если содержимое длинное и по-прежнему не полностью видно, вручную перетащите границу строки под объединенной ячейкой, чтобы увеличить Высота строки до тех пор, пока всё содержимое не станет видимым.
См. также:
Как автоматически подогнать Ширина столбца в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек