Excel объединенные ячейки автоподбор высоты строки

Если текст содержится в объединенных ячейках, то автоподбор высоты строки не сработает.

В этой статье Вы НЕ найдете решение вот такой задачи: высота строки должна подбираться автоматически (без участия пользователя) в зависимости от длины текста в ячейке (текст возвращается формулой и его длина может меняться, поэтому нужно изменять высоту строки). Статья вообще не об этом: если ячейки объединены, то стандартный

автоподбор высоты по содержимому

не работает (это когда Вы кликаете между заголовками строк и высота строки изменяется, чтобы вместить все содержимое ячейки), поэтому используйте вместо объединения ячеек Формат ячеек

Выравнивание по центру выделения —

это не панацея, но в некоторых случаях подходящая замена.

Кто заинтересовался читаем дальше.

На рисунке снизу приведена типичная ситуация: в двух объединенных ячейках

А1

и

В1

содержится текстовая строка (объединены 2 ячейки в одной строке). Требуется быстро подобрать по содержанию высоту строки

1

(в ячейках включена опция

Переносить по словам

).

Предположим, что пользователь, желая использовать механизм автоподбора (см. статью

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

), два раза кликает на границу между первой и второй строки и получает, то что мы видим на рисунке ниже — высота строки не достаточна для полного отображения содержимого объединенных ячеек.

Т.к. автоподбор высоты строки в этом случае не работает, то обычно ограничиваются подбором высоты строки в ручную (на глазок). Это, конечно, не удобно.

Если хотите наслаждаться автоподбором высоты строки по содержимому, то имеется 2 подхода:

• вместо объединения ячеек использовать формат ячейки
  
  Выравнивание по центру выделения
  
  ;
• оставить объединение ячеек, но использовать дополнительную ячейку.

Выравнивание по центру выделения

В некоторых случаях можно разместить данные в нескольких ячейках (без объединения ячеек) и продолжать пользоваться автоподбором высоты по содержимому. Для этого используйте опцию Формата ячеек

Выравнивание по центру выделения:

выделите нужные ячейки, откройте Формат ячеек (

CTRL

+

SHIFT

+

F

, вкладка

Выравнивание

), а в выпадающем списке

Выравнивание по горизонтали

установите

Выравнивание по центру выделения

.

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

СОВЕТ:

Ячейки чаще всего объединяют для выравнивания заголовка листа по середине страницы. Но, чтобы это сделать, вовсе нет необходимости объединять ячейки. Достаточно их просто выделить и установить опцию

Выравнивание по центру выделения

.

Дополнительная ячейка

Предположим, что имеется 2 объединенных ячейки

А4

(ширина 15,14) и

В4

(ширина 16,14). Узнать ширину можно нажав на правую границу заголовка столбца.

Пусть как и в предыдущем разделе, пользователь, желая использовать механизм автоподбора, два раза кликает на границу между четвертой и пятой строкой и получает, что высота строки равна схлопывается до минимального размера (отображается только 1 строка).

Теперь в ячейке

С4

введите формулу

=А4

, а ширину ячейки сделайте равной сумме ширины

А4

и

В4

, т.е. 15,14+16,14=31,28.

Затем опять дважды кликните на границу между четвертой и пятой строкой.

Самое удивительное, что столбец можно скрыть — автоподбор продолжит работать!

СОВЕТ

. Задать ширину столбца можно через меню Формат на вкладке

Главная

.

СОВЕТ

: Используйте объединение ячеек, находящихся в одной строке, взвесив все «за» и «против», т.к. объединение ячеек служит скорее для «наведения красоты на листе», а не для выполнения вычислений. Не будем забывать, что MS EXCEL все таки скорее создавался для выполнения вычислений и анализа данных, а не для подготовки презентаций. Хотя, конечно, таблицы тоже должны выглядеть профессионально. Эту дилемму каждый решает по своему, лично я стараюсь не объединять ячейки без крайней необходимости. А объединение ячеек, находящихся в одном столбце (т.е. объединение строк), следует вообще избегать, особенно в таблицах с данными, т.к. в некоторых случаях перестают корректно работать

фильтр

и

Сводная таблица

. Кроме того, перестает корректно работать сочетание клавиш

CTRL+D

(вставка значения из ячейки сверху).

Еще

: слово

Автоподбор

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

Про поиск объединенных ячеек на листе рассказано в одноименной статье

Поиск объединенных ячеек

.

Помогла ли Вам статья?

Хитрости »

10 Август 2016              35660 просмотров

Подбор высоты строки/ширины столбца объединенной ячейки

Для начала немного теории. Если в ячейках листа Excel записан некий длинный текст, то обычно устанавливают перенос на строки(вкладка Главная -группа Выравнивание —Перенос текста), чтобы текст не растягивался на весь экран, а умещался в ячейке. При этом высота ячейки тоже должна измениться, чтобы отобразить все содержимое. Если речь идет всего об одной простой ячейке — проблем не возникает. Обычно, чтобы установить высоту строки на основании содержимого ячейки, достаточно навести курсор мыши в заголовке строк на границу строки(курсор приобретет вид направленных в разные стороны стрелок — ) и дважды быстро щелкнуть левой кнопкой мыши. Тоже самое можно сделать и для ширины столбцов.
Но с объединенными ячейками такой фокус не прокатывает — ширина и высота для этих ячеек так не подбирается, сколько ни щелкай и приходится вручную подгонять каждую, чтобы текст ячейки отображался полностью:

Стандартными средствами такой автоподбор не сделать, но вот при помощи VBA — без проблем. Ниже приведена функция, которая поможет подобрать высоту и ширину объединенных ячеек на основании их содержимого.

'---------------------------------------------------------------------------------------
' Procedure : RowHeightForContent
' Author    : The_Prist(Щербаков Дмитрий)
'             http://www.excel-vba.ru
' Purpose   : Функция подбирает высоту строки/ширину столбца объединенных ячеек по содержимому
'---------------------------------------------------------------------------------------
Function RowColHeightForContent(rc As Range, Optional bRowHeight As Boolean = True)
'rc -         ячейка, высоту строки или ширину столбца которой необходимо подобрать
'bRowHeight - True - если необходимо подобрать высоту строки
'             False - если необходимо подобрать ширину столбца
    Dim OldR_Height As Single, OldC_Widht As Single
    Dim MergedR_Height As Single, MergedC_Widht As Single
    Dim CurrCell As Range
    Dim ih As Integer
    Dim iw As Integer
    Dim NewR_Height As Single, NewC_Widht As Single
    Dim ActiveCellHeight As Single
 
    If rc.MergeCells Then
        With rc.MergeArea 'если ячейка объединена
            'запоминаем кол-во столбцов
            iw = .Columns(.Columns.Count).Column - rc.Column + 1
            'запоминаем кол-во строк.
            ih = .Rows(.Rows.Count).Row - rc.Row + 1
            'Определяем высоту и ширину объединения ячеек
            MergedR_Height = 0
            For Each CurrCell In .Rows
                MergedR_Height = CurrCell.RowHeight + MergedR_Height
            Next
            MergedC_Widht = 0
            For Each CurrCell In .Columns
                MergedC_Widht = CurrCell.ColumnWidth + MergedC_Widht
            Next
            'запоминаем высоту и ширину первой ячейки из объединенных
            OldR_Height = .Cells(1, 1).RowHeight
            OldC_Widht = .Cells(1, 1).ColumnWidth
            'отменяем объединение ячеек
            .MergeCells = False
            'назначаем новую высоту и ширину для первой ячейки
            .Cells(1).RowHeight = MergedR_Height
            .Cells(1, 1).EntireColumn.ColumnWidth = MergedC_Widht
            'если необходимо изменить высоту строк
            If bRowHeight Then
                '.WrapText = True 'раскомментировать, если необходимо принудительно выставлять перенос текста
                .EntireRow.AutoFit
                NewR_Height = .Cells(1).RowHeight    'запоминаем высоту строки
                .MergeCells = True
                If OldR_Height < (NewR_Height / ih) Then
                    .RowHeight = NewR_Height / ih
                Else
                    .RowHeight = OldR_Height
                End If
                'возвращаем ширину столбца первой ячейки
                .Cells(1, 1).EntireColumn.ColumnWidth = OldC_Widht
            Else 'если необходимо изменить ширину столбца
                .EntireColumn.AutoFit
                NewC_Widht = .Cells(1).EntireColumn.ColumnWidth    'запоминаем ширину столбца
                .MergeCells = True
                If OldC_Widht < (NewC_Widht / iw) Then
                    .ColumnWidth = NewC_Widht / iw
                Else
                    .ColumnWidth = OldC_Widht
                End If
                'возвращаем высоту строки первой ячейки
                .Cells(1, 1).RowHeight = OldR_Height
            End If
        End With
    End If
End Function

Пара замечаний:

• т.к. нельзя выставить и автоширину и автовысоту — то функция подбирает либо высоту, либо ширину, что логично
• чтобы подбор по высоте ячеек сработал, для ячейки должен быть выставлен перенос строк(вкладка Главная -группа Выравнивание —Перенос текста). Если ячеек много и выставлять вручную лень — можно просто убрать апостроф перед точкой в строке:’.WrapText = True ‘раскомментировать, если необходимо принудительно выставлять перенос текстатогда код сам проставит переносы. Но тут следует учитывать, что в данном случае перенос будет выставлен для всех ячеек, что не всегда отвечает условиям
• функция подбирает высоту и ширину исключительно для объединенных ячеек. Если ячейка не объединена — код оставит её без изменений

Теперь о том, как это работает и как применять. Для начала необходимо приведенный выше код функции вставить в стандартный модуль. Сама по себе функция работать не будет — её надо вызывать из другого кода, который определяет какие ячейки обрабатывать. В качестве такого кода я предлагаю следующий:

Sub ChangeRowColHeight()
    Dim rc As Range
    Dim bRow As Boolean
    bRow = (MsgBox("Изменять высоту строк?", vbQuestion + vbYesNo, "www.excel-vba.ru") = vbYes)
    'bRow = True:  для изменения высоты строк
    'bRow = False: для изменения ширины столбцов
    Application.ScreenUpdating = False
    For Each rc In Selection
        RowColHeightForContent rc, bRow
    Next
    Application.ScreenUpdating = True
End Sub

Этот код также необходимо вставить в стандартный модуль. Теперь его можно будет вызвать из этой книги, нажатием клавиш Alt+F8 и выбрав ChangeRowColHeight, или создав на листе кнопку и назначив ей макрос. После этого достаточно будет выделить диапазон ячеек, среди которых есть объединенные и вызвать макрос ChangeRowColHeight. Для всех объединенных ячеек в выделенном диапазоне будет подобрана высота или ширина.
Чтобы было нагляднее — я приложил пример, в котором помимо самих кодов есть вырезка из стандартной накладной. Именно в таких документах наиболее часто встречаются подобные казусы и необходимость подбирать высоту и ширину объединенных ячеек.
Скачать пример:

  Tips_Macro_HeightWidthInMergeCell.xls (64,0 KiB, 3 476 скачиваний)

Если подобную операцию приходится производить постоянно — советую коды записать в надстройку: Как создать свою надстройку?. Так же можно воспользоваться уже готовым решением в составе MulTEx — Высота/Ширина объединенной ячейки.

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Во время работы с таблицами Excel нередко возникает ситуация, когда информация в ячейке выходит за ее рамки. Конечно же, можно постараться каким-то образом убрать лишние данные, тем самым сократив содержимое ячейки. Но это редко помогает, поэтому наиболее практичным решением будет сдвиг ее границ, чтобы уместить все данные внутри нее. Сделать это можно путем настройки ширины столбца или высоты строки. Давайте остановимся на последнем варианте и посмотрим, как можно задать высоту строки, причем, чтобы она определялась программой автоматически.

Автоподбор высоты строк

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

Метод 1. Автоподбор высоты через формат ячеек

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

Итак, давайте приступим:

1. Щелкаем правой кнопкой мыши по ячейке/выделенному диапазону (в нашем случае выделяем всю таблицу) и в контекстном меню щелкаем по строке “Формат ячеек…”.
2. Откроется окно форматирования, в котором переключаемся во вкладку “Выравнивание”. В параметрах “Отображение” ставим галочку напротив опции “переносить текст”, после чего щелкаем OK.
3. Благодаря нашим действиям, содержимое выделенных ячеек полностью отобразилось в них с учетом переноса, а высота строк изменилась ровно на столько, сколько необходимо для того, чтобы полностью отобразить все данные.

Теперь перейдем к остальным ситуациям, когда мы имеем дело с ячейками, в которых включен перенос текста, но границы сдвинуты так, что часть информации в них не “вписывается” или, наоборот, в ячейках остается слишком много свободного места.

Метод 2. Настройка высоты через координатную панель

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

Метод 3. Автоподбор высоты для нескольких строк

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

1. На координатной панели вместо одной строки одновременно выделяем диапазон строк, высоту которых хотим настроить. Как это сделать, читайте в нашей статье “Как выделить ячейки в Эксель“.
2. Теперь аналогично методу, описанному выше, двойным щелчком левой кнопки мыши автоматически задаем высоту строк. Наводить указатель мыши можно на нижнюю границу любой строки выделенного диапазона.
3. Все готово. Мы задали оптимальную высоту для всех строк, которые выбрали, выполняя первый шаг.

Метод 4. Использование инструментов на ленте

Многие наиболее часто используемые функции программы Эксель вынесены в виде отдельных кнопок на Ленту программы. Для автоподбора высоты также предусмотрена своя собственная кнопка, и вот как ею нужно пользоваться:

1. Отмечаем область ячеек, высоту которых нужно автоматически задать.
2. Переключаемся во вкладку “Главная” и нажимаем кнопку “Формат”, которая расположена в разделе “Ячейки”. Откроется перечень команд, среди которых нам нужна строка “Автоподбор высоты строки”, следовательно, щелкаем по данному пункту.
3. Это все, что нужно было сделать для того, чтобы автоматически задать высоту строк для выделенного фрагмента данных.

Метод 5. Настройка высоты для объединенных ячеек

Несмотря на то, что функция автоподбора высоты срок не применима к объединенным ячейкам, и эта задача вполне выполнима.

Суть данного метода заключается в том, что на самом деле никакого объединения ячеек не будет, мы лишь создадим видимость слияния, что позволить использовать автоподбор.

1. Сначала нужно выделить ячейки, которые мы якобы хотим объединить.
2. Затем щелчком правой кнопки мыши по выделенному диапазону вызываем контекстное меню, в котором выбираем строку “Формат ячеек…”.
3. Переключаемся во вкладку “Выравнивание”, кликаем по текущему варианту выравнивания по горизонтали, выбираем “по центру выделения” и жмем кнопку OK.
4. В результате текст из первой ячейки расположился по центру выделенных элементов, при этом, объединение ячеек не было выполнено.
5. Теперь осталось только применить функцию автоподбора высоты строк любым из способов, описанных выше.

Заключение

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