Автоматическое выравнивание ширины строк в excel

Изменение ширины столбцов и высоты строк в Excel

Ширину столбцов и высоту строк можно настроить вручную или автоматически в соответствии с данными.

Примечание: Граница — это линия между ячейками, столбцами и строками. Если столбец слишком узкий для отображения данных, вы увидите в ячейке «###».

Изменение размера строк

1. Выделите строку или диапазон строк.

2. На вкладке Главная выберите Формат >Ширина строки (или Высота строки).

3. Введите высоту строки и нажмите кнопку ОК.

Изменение размера столбцов

1. Выберите столбец или диапазон столбцов.

2. На вкладке Главная выберите Формат >Ширина столбца (или Высота столбца).

3. Введите ширину столбца и нажмите кнопку ОК.

Автоматическое изменение размера всех столбцов и строк в соответствии с данными

1. Нажмите кнопку Выделить все  в верхней части листа, чтобы выделить все столбцы и строки.

2. Дважды щелкните границу. Размер всех столбцов и строк изменится в соответствии с данными.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

См. также

Вставка и удаление ячеек, строк и столбцов

Содержание

• Применение атоподбора
  • Способ 1: панель координат
  • Способ 2: включение автоподбора для нескольких строк
  • Способ 3: кнопка на ленте инструментов
  • Способ 4: подбор высоты для объединенных ячеек
• Вопросы и ответы

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

Применение атоподбора

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

Кроме того, нужно сказать, что автоподбор высоты применим в Эксель только для тех ячеек, у которых в форматировании включен перенос по словам. Для того чтобы включить это свойство выделяем на листе ячейку или диапазон. Кликаем по выделению правой кнопкой мыши. В запустившемся контекстном списке выбираем позицию «Формат ячеек…».

Происходит активация окна форматирования. Переходим во вкладку «Выравнивание». В блоке настроек «Отображение» устанавливаем флажок напротив параметра «Переносить по словам». Чтобы сохранить и применить изменения конфигурации настроек, жмем на кнопку «OK», которая размещена внизу этого окна.

Теперь на выделенном фрагменте листа включен перенос по словам и к нему можно применять автоподбор высоты строки. Рассмотрим, как это сделать различными способами на примере версии Excel 2010. Вместе с тем нужно заметить, что полностью аналогичный алгоритм действий можно использовать как для более поздних версий программы, так и для Excel 2007.

Способ 1: панель координат

Первый способ предполагает работу с вертикальной панелью координат, на которой располагаются номера строк таблицы.

1. Кликаем по номеру той строки на панели координат, к которой нужно применить автоподбор высоты. После этого действия вся строчка будет выделена.



2. Становимся на нижнюю границу строки в секторе панели координат. Курсор должен приобрести вид стрелки направленной в две стороны. Делаем двойной щелчок левой кнопкой мыши.



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

Способ 2: включение автоподбора для нескольких строк

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

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

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





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



3. После выполнения вышеуказанной процедуры все строки выделенного диапазона будут увеличены в высоту на размер хранящихся в их ячейках данных.

Урок: Как выделить ячейки в Excel

Способ 3: кнопка на ленте инструментов

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

1. Выделяем диапазон на листе, к которому нужно применить автоподбор. Находясь во вкладке «Главная», производим щелчок по кнопке «Формат». Данный инструмент размещен в блоке настроек «Ячейки». В появившемся списке в группе «Размер ячейки» выбираем пункт «Автоподбор высоты строки».



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

Способ 4: подбор высоты для объединенных ячеек

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

1. Выделяем те ячейки, которые нужно объединить. Кликаем по выделению правой кнопкой мыши. В меню переходим по пункту «Формат ячеек…».



2. В открывшемся окне форматирования переходим во вкладку «Выравнивание». В блоке настроек «Выравнивание» в поле параметра «По горизонтали» выбираем значение «По центру выделения». После того, как конфигурирование произведено, жмем на кнопку «OK».



3. После этих действий данные расположились по всей зоне выделения, хотя по факту продолжают храниться в крайней левой ячейке, так как объединения элементов, по сути, не произошло. Поэтому, если, например, нужно будет удалить текст, то сделать это можно будет только в крайней левой ячейке. Далее опять выделяем весь диапазон листа, на котором размещен текст. Любым из трех предыдущих способов, которые были описаны выше, включаем автоподбор высоты.



4. Как видим, после этих действий автоподбор высоты строки был произведен при сохраняющейся иллюзии объединения элементов.

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

Еще статьи по данной теме:

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

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

Пусть имеется таблица с ячейками заполненными текстовыми значениями.

Автоподбор ширины столбца

Как видно из рисунка выше, текстовые значения в ячейках

А2

и

А3

отображаются не полностью, т.к. мешает текст в столбце

B

. Нам необходимо, чтобы содержимое всех ячеек в столбце

A

отображалось полностью. Для этого необходимо сделать ширину столбца

A

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

А

и

B

(на сером заголовке столбцов), курсор примет следующий вид:

Делаем двойной клик мышкой и, Voila, ширина столбца стала достаточной для отображения значений во всех ячейках столбца (с учетом скрытых строк).

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

• выделяем необходимые столбцы (за их серые заголовки);
• подводим курсор к любому разделу выделенных столбцов и дважды кликаем.

Альтернативный вариант:

• Выберите столбец или столбцы, ширину которых нужно изменить;
• На вкладке
  
  Главная
  
  в группе
  
  Ячейки
  
  выберите команду
  
  Формат
  
  ;
• В группе
  
  Размер ячейки
  
  выберите пункт
  
  Автоподбор ширины столбца
  
  .
  

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

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

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

через

Формат ячеек

(или через меню

).

Ширина столбца останется прежней, зато высота строки автоматически увеличится, чтобы полностью отобразить значение ячейки.

Иногда, не смотря на установленную опцию

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

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

После этого текстовое значение будет отображено в ячейке полностью:

Реальный пример

Теперь применим рассмотренный метод в реальной ситуации – отредактируем таблицу, созданную путем копирования данных из MS ACCESS. Скопируем через

Буфер обмена

какую-нибудь таблицу из MS ACCESS на лист EXCEL.

Обратите внимание, что у ячеек, в которые мы вставили значения из

Буфера обмена

, включена опция

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

хотя, по умолчанию, она отключена (EXCEL сам включил ее при вставке). Кроме того, EXCEL не стал изменять ширину столбцов, установленную по умолчанию, а была изменена только высота строк, чтобы полностью отобразить все значения. Такое форматирование таблицы не всегда устраивает пользователя. Используя вставленную таблицу, решим 2 задачи.

Задача1.

Предположим, нам нужно, чтобы все значения отображались в таблице в одну строку.

Для этого:

• выделите вставленные значения (для этого выделите любую ячейку таблицы и нажмите
  
  CTRL+A
  
  (выделится

  текущая область

  ), если таблица не содержит пустых строк и столбцов, то будут выделены все вставленные значения);

• выключите опцию
  
  Переносить по словам
  
  (через меню

  );

• высота ячеек будет уменьшена так, чтобы отображать только одну строку, как следствие часть значений станет невидна;

• выделите столбцы
  
  А
  
  ,
  
  B
  
  и
  
  С
  
  за серые заголовки;
• подведите указатель мыши к разделу столбцов
  
  А
  
  и
  
  B
  
  (на сером заголовке столбцов) и дважды кликните.

Задача решена: содержимое всех ячеек полностью отображается.

Задача2.

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

Для этого:

• задайте требуемую ширину столбцов
  
  А
  
  ,
  
  B
  
  и
  
  С
  
  ;
• опцию
  
  Переносить по словам
  
  не выключайте (включите);

• выделите все строки, содержащие вставленные значения, или все ячейки листа (все ячейки листа можно выделить нажав кнопку
  
  Выделить все
  
  в левом верхнем углу листа или дважды нажав
  
  CTRL
  
  +
  
  A
  
  );
• подведите указатель мыши к разделу любых двух заполненных строк (на сером заголовке столбцов) и дважды кликните.

Задача решена: содержимое всех ячеек полностью отображается.

Случай с объединенными ячейками

В случае, если две или несколько ячеек объединены в одну, то рассмотренный подход не сработает. Можно ли осуществить автоподбор высоты строки в случае объединенных ячеек? Об этом читайте в одноименной статье

Автоподбор высоты строки по содержимому при объединении ячеек

.

Изменение ширины столбцов и высоты строк

​Смотрите также​​ строк. H1 :=​ объединения оказалась меньше,​ в том числе,​ ‘Возвращаем левому столбцу​ Long Dim nCol​ Long = 65000​ Стоит высокий уровень​Чтобы настроить размер ячеек​выберите требуемую высоту​ и А13. Текст​ с адресами строк​ любой строки.​ листа, щелкните ярлычок​ «​ новых книг или​Введите значение в поле​Примечание:​ HRow1; for i​ чем наименьшая ‘пригодная​ объединёнными. Sub RngAutoFit(ByRef​ диапазона его прежнюю​

​ As Long Dim​ ‘Номер строки для​ безопасности и боимся​ в соответствии с​ и ширину.​ расположился так. Нам​ на любую границу​Выполните одно из указанных​ листа.​Вид​ листов. Приведены дополнительные​Ширина столбцов​Мы стараемся как​

​ := 2 to​	​ высота, то увеличиваем​	​ aRng As Excel.Range)​	​ ширину. Cell.ColumnWidth =​
​ HRow1 As Long​	​ временной ячейки​	​ макровирусов?​	​ их содержимым, используйте​
​На вкладке​	​ нужно уменьшить ширину​	​ в выделенной области​	​ ниже действий.​

​Чтобы изменить ширину столбца​​», группа​

• ​ сведения по следующим​.​ можно оперативнее обеспечивать​​ MRng.Rows.Count do H1​​ высоту верхней строки​​ Dim Cell As​​ WCol1 ‘Объединяем все​​ ‘Высота верхней строки​​Cells(NumCell, 27).Value =​pchakoff​ кнопку​Вид​ этих объединенных ячеек.​ ячеек. Например, так.​Чтобы изменить высоту одной​ по умолчанию для​​Режимы просмотра книги​​ ссылкам:​​Нажмите кнопку​​ вас актуальными справочными​​ := H1 +​​ на соответствующую величину.​​ Excel.Range ‘Отдельная ячейка.​​ нужные ячейки. MRng.MergeCells​ в диапазоне объединения.​ MyRange.Value​​: Если я правильно​​Автоподбор​​установите флажок​​Обычные действия не​Здесь выделили две строки​ строки, перетащите нижнюю​ всей книги, щелкните​

• ​, кнопка «​Настройка Windows — способа​ОК​ материалами на вашем​ MRng.Rows[i].RowHeight ; //Ширина​ If H1 <​ Dim MRng As​ = True End​ Dim H1 As​Cells(NumCell, 27).WrapText =​ понял, то так:​

​.​Линейка​ всегда подходят. Вручную​

Установка заданной ширины столбца

1. ​ и нажали на​ границу заголовка строки​ правой кнопкой мыши​

2. ​Разметка страницы​​ запуска Excel​​.​​ языке. Эта страница​​ левого столбца в​​ H2 Then Cell.Rows(1).RowHeight​​ Excel.Range ‘Диапазон объединения​

   

3. ​ If Next nCol​​ Long ‘Исходная высота​​ True​​Выделяешь столбец, куда​​Выделите столбец, а затем​

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

5. ​ до нужной высоты.​​ ярлычок какого-либо листа,​​»). В режиме​

   ​Настройка Mac — способа​​Совет:​ переведена автоматически, поэтому​ диапазоне объединения. WCol1​ = HRow1 +​ ячеек. Dim DispAl​​ Next nRow ‘Восстанавливаем​​ по совокупности всех​MyRowHeight = Rows(NumCell).RowHeight​ будешь заносить информацию,​​ нажмите кнопку​​ и перетащите маркеры​

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

1. ​ долго. Но есть​ 38 и 39.​Чтобы изменить высоту нескольких​

2. ​ а затем выберите​​ разметки страницы можно​​ запуска Excel​​ Чтобы быстро задать ширину​​ ее текст может​​ := MRng.Columns[1].ColumnWidth; //Подсчитываем​​ (H2 — H1)​

   

3. ​ As Boolean Dim​​ прежний режим показа​​ строк объединения. Dim​​ / MyRange.Rows.Count​​ щелкаешь правой клавишей​

   ​Автоподбор​​ на линейке.​ другие способы.​ Можно нажать на​​ строк, выберите нужные​​ пункт​ указать столбец ширины​Выполните одно из указанных​

Изменение ширины столбца в соответствии с шириной другого столбца

1. ​ одного столбца, щелкните​ содержать неточности и​

2. ​ исходную ширину диапазона​ End If ‘Возвращаем​​ nRow As Long​​ предупреждений. Application.DisplayAlerts =​​ H2 As Long​​If MyRowHeight Cells(NumCell,​​ мыши и выбираешь​​и выберите пункт​

   

3. ​Примечание:​Чтобы работали функции​ границу между 39​​ строки и перетащите​​Выделить все листы​​ или высоты строки​ ​ ниже действий.​

Изменение ширины по умолчанию для всех столбцов листа или книги

​ выделенный столбец правой​ грамматические ошибки. Для​ объединения по совокупности​ левому столбцу диапазона​ Dim nCol As​ DispAl End Sub​ ‘Наименьшая необходимая высота​ 27).Clear​ формат ячеек. Далее​

1. ​Автоподбор по содержимому​ В Excel на вкладке​

   • ​ изменения размера строк,​ и 40 строки.​ нижнюю границу заголовка​в контекстное менюTE000127572.​

   • ​ в дюймах. В​Чтобы изменить ширину одного​ кнопкой мыши, выберите​ нас важно, чтобы​ всех его столбцов.​ его прежнюю ширину.​ Long Dim HRow1​​ ‘Проверка. Sub Sub1()​​ для показа текста​

     

2. ​End Function​​ на закладке «Выравнивание»​​.​​Главная​​ столбцов, автоподбор, т.д.,​​Как быстро выделить​​ одной из выбранных​

   

3. ​На вкладке​​ этом представлении дюймов​​ столбца, перетащите правую​​ пункт​​ эта статья была​

4. ​ W1 := WCol1;​​ Cell.ColumnWidth = WCol1​​ As Long ‘Высота​ Dim Rng As​ в объединённой ячейке.​​Fistashka​​ ставишь галочку напротив​

   ​Чтобы выполнить автоподбор для​​нажмите кнопку​

   • ​ которые мы разобрали​ определенные ячейки, столбцы,​ строк.​Главная​ являются единицу измерения​ границу его заголовка​Ширина столбца​ вам полезна. Просим​ for i :=​ ‘Объединяем все нужные​ верхней строки в​ Excel.Range Dim Sh​

   • ​ Dim WCol1 As​: В ячейку вставляется​

   • ​ «переносить по словам».​ всей таблицы, выделите​

Изменение ширины столбца с помощью мыши

​Формат​ выше, нужно объединение​

• ​ строки, читайте в​Чтобы изменить высоту всех​в группе​ по умолчанию, но​

  

• ​ до нужной ширины.​, введите значение, которое​ вас уделить пару​ 2 to MRng.Columns.Count​ ячейки. MRng.MergeCells =​ диапазоне объединения. Dim​ As Excel.Worksheet Set​

• ​ Long ‘Исходная ширина​ очень длинный текст,​Sh_Alex​ ее, а затем​и выберите пункт​ ячеек заменить форматом​ статье «Как выделить​ строк на листе,​Ячейки​

• ​ вы можете изменить​Чтобы изменить ширину нескольких​ вы хотите и​​ секунд и сообщить,​​ do W1 :=​ True End If​ H1 As Long​

  

Установка заданной высоты строки

1. ​ Sh = Application.ActiveSheet​ левого столбца в​ который при печати​

2. ​: На всем листе​​ нажмите кнопку​​Ширина столбца​​ ячейки.​​ в Excel ячейки,​​ нажмите кнопку​​нажмите кнопку​

   

3. ​ единицы измерения на​​ столбцов, выделите столбцы,​​ нажмите кнопку​​ помогла ли она​​ W1 + MRng.Columns[i].ColumnWidth​

4. ​ Next nCol Next​​ ‘Исходная высота по​​ Set Rng =​​ диапазоне объединения. Dim​​ просто не виден.​

Изменение высоты строки в соответствии с содержимым ячеек

1. ​ подобрать ширину столбца​Автоподбор​.​

2. ​Выделяем объединенные ячейки.​​ таблицу, др.» тут.​​Выделить все​​Формат​​ сантиметры или миллиметр.​​ ширину которых требуется​​ОК​

   

3. ​ вам, с помощью​​ ; //Теперь разъединяем​​ nRow ‘Восстанавливаем прежний​​ совокупности всех строк​​ Sh.Range(«A1:J5») RngAutoFit Rng​

   ​ W1 As Long​​ Нужно, чтобы продолжение​ или высоту строки​и выберите пункт​​Изменение высоты столбцов и​​ Как найти все​Получилось так.​, а затем перетащите​

Изменение высоты строки с помощью мыши

​.​В Excel 2007, нажмите​

• ​ изменить, а затем​.​ кнопок внизу страницы.​ ячейки. MRng.MergeCells :=​

  

• ​ режим показа предупреждений.​ объединения. Dim H2​ End SubОсталось код​ ‘Исходная ширина по​ текста переносилось в​ по содержимому можно​

• ​Автоподбор по содержимому​ строк​ объединенные ячейки в​​Как изменить ширину столбца​​ нижнюю границу заголовка​В разделе​Кнопку Microsoft Office​

  

• ​ перетащите правую границу​Выберите столбец или столбцы,​ Для удобства также​ False; //Ширину левого​ Application.DisplayAlerts = DispAl​

​ As Long ‘Наименьшая​

​ процедуры RngAutoFit() перевести​ совокупности всех столбцов​ сторку ниже.​ так.​.​Чтобы изменить высоту, выполните​ таблице, смотрите в​​ в​​ любой строки.​​Размер ячейки​​>​​ заголовка любого выделенного​​ ширину которых требуется​ приводим ссылку на​ столбца делаем равным​ End Sub ‘Проверка.​ необходимая высота для​ на Delphi.​ объединения. Dim i​Пишу на Delphi.​Выделяем весь лист​Если вы не видите​ одно из указанных​

• ​ статье «Как найти​​Excel​ ​Чтобы изменить высоту строки​​выберите пункт​​Параметры Excel​​ столбца.​​ изменить.​

• ​ оригинал (на английском​​ исходной ширине всего​​ Sub Sub1() Dim​​ показа текста в​​—​​ As Long If​​Mawrat​

Установка заданной ширины столбца

1. ​ (щелкаем в левую​ все данные в​ ниже действий.​

2. ​ объединенные ячейки в​​.​​ в соответствии с​​Ширина по умолчанию​​>​​Чтобы изменить ширину столбцов​​На вкладке​

   

3. ​ языке) .​​ диапазона объединения. Cell.ColumnWidth​​ Rng As Excel.Range​​ объединённой ячейке. Dim​​Идея этого алгоритма​

4. ​ aRng Is Nothing​​: Для такой ячейки​​ верхнюю клеточку на​

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

1. ​ ячейке, измените ширину​Чтобы все строки в​ Excel».​

2. ​Действуем по такому​​ содержимым, дважды щелкните​​.​​Дополнительно​​ в соответствии с​​Главная​​Если вы поймете которым​

   

3. ​ := W1; //Задаём​​ Dim Sh As​​ WCol1 As Long​​ такая:​​ Then Exit Sub​

​ надо выставить свойство​​ пересечении номеров строк​ столбцов или высоту​ таблице имели одинаковую​​Нажимаем сочетание клавиш​​ же принципу, как​ нижнюю границу заголовка​В поле​

Изменение ширины столбца в соответствии с шириной другого столбца

1. ​.​ содержимым ячеек, выберите​

2. ​в группе​​ необходимо расширить или​​ режим переноса текста​​ Excel.Worksheet Set Sh​​ ‘Исходная ширина левого​​- Замеряем размеры​​ ‘Подгоняем высоту строк​ WrapText := True.​

   

3. ​ и столбцов), ставим​​ строк:​​ высоту, на вкладке​​ «Ctrl» + «1».​​ и изменение высоты​ строки.​​Ширина столбца​​В Excel 2010, выберите​​ столбец или столбцы,​​Ячейки​

4. ​ сузить строки ширины​​ по словам. Cell.WrapText​​ = Application.ActiveSheet Set​ столбца в диапазоне​​ объединённой ячейки.​​ для ячеек, которые​

Изменение ширины по умолчанию для всех столбцов листа или книги

​Delphi var exCell,​ галку в _Формат​Чтобы увеличить ширину одного​Макет​ В появившемся диалоговом​ строк. Только нажимаем​К началу страницы​введите новое значение.​файл​

1. ​ которые требуется изменить,​нажмите кнопку​

   • ​ и высоты столбцов​ := True; //Выполняем​ Rng = Sh.Range(«A1:J5»)​ объединения. Dim W1​

   • ​- Затем, разъединяем​ не входят в​ … : Variant;​ ячеек_Выравнивание_Переносить по словам,​ столбца, например столбца​нажмите кнопку​ окне «Формат ячеек»​​ мышкой на границе​​Рассмотрим несколько вариантов,​

     

2. ​Совет​​>​​ и дважды щелкните​​Формат​​ в Excel, существует​​ подгон высоты верхней​​ RngAutoFit Rng End​

   

3. ​ As Long ‘Исходная​​ диапазон. При этом,​​ диапазоны объединённых ячеек.​​ begin … exCell.WrapText​​ дальше _Формат_Столбец_Автоподбор ширины​

4. ​ B, как на​​Выровнять высоту строк​​ на закладке «Выравнивание»​

​ столбцов в строке​​как изменить ширину столбца​   . Если требуется определить​Параметры​ правую границу заголовка​.​ несколько способов для​ строки. Cell.Rows.AutoFit; //Выполняем​ SubКод Delphi:​ ширина по совокупности​ весь текст окажется​ aRng.Rows.AutoFit ‘Отключаем режим​ := True; //Перенос​ или _Формат_Строка_Автоподбор высоты.​ рисунке ниже, перетащите​.​

Изменение ширины столбца с помощью мыши

​ в разделе «Выравнивание​ адреса столбцов.​

• ​ в Excel,​ новое значение ширины​>​ одного из выделенных​

  

• ​В разделе​ их настройки. В​ замер получившейся высоты​Delphi uses ComObj;​ всех столбцов объединения.​ в левой верхней​ показа предупреждений. Это​

• ​ текста по словам.После​Лист для печати​ границу справа от​Чтобы все столбцы в​ по горизонтали» ставим​Здесь выделили два столбца.​как сделать быстро​ столбцов по умолчанию​Дополнительно​

• ​ столбцов.​Размер ячейки​ приведенной ниже таблице​​ верхней строки. //Это​​ //Эта процедура предназначена​ Dim i As​ ячейке диапазона объединения.​

  

Установка заданной высоты строки

1. ​ надо для того,​ того, как во​ придется подгонять вручную.​

2. ​ заголовка столбца​​ таблице имели одинаковую​​ функцию «по центру​​ Нажали два раза​​ автоподбор высоты строки​​ для всех новых​​.​

   

3. ​Чтобы изменить ширину всех​​выберите пункт​​ показывает минимальное значение,​​ наименьшая высота, пригодная​​ для подгона высоты​

4. ​ Long If aRng​​- Задаём ширину​​ чтобы в следующей​

Изменение высоты строки в соответствии с содержимым ячеек

1. ​ всех ячейках нужного​С уважением, лександр.​B​

2. ​ ширину, на вкладке​​ выделения».​​ левой мышкой на​​ Excel, ширины столбца,​​ книг и листов,​​Выберите столбец или столбцы,​​ столбцов на листе,​

   

3. ​Автоподбор ширины столбца​​ по умолчанию и​​ для показа текста.​​ строк по содержимому​​ Is Nothing Then​

​ левой верхней ячейки​​ части ‘программы не​ диапазона текст будет​Вячеслав​​столбца до нужной​​Макет​Нажимаем «ОК». Получилось​ границу столбцов А​

Изменение высоты строки с помощью мыши

​ как настраивается в​ можно создать шаблон​

• ​ ширину которых требуется​ нажмите кнопку​.​ максимальный размер для​

  

• ​ H2 := Cell.Rows[1].RowHeight;​ ячеек в пределах​ Exit Sub ‘Подгоняем​ равной ширине исходного​ появлялось сообщение с​ установлен, можно выполнить​

• ​: Спасибо за советы.​ ширины. Чтобы уменьшить​нажмите кнопку​​ так.​​ и В. Получилось​ Excel высота строки​ книги или листа,​

  

• ​ изменить.​Выделить все​Примечание:​ каждого на основе​ //Если исходная высота​

​ //заданного диапазона aRng.​

support.office.com

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

​ высоту строк для​​ объединённого диапазона.​ предупреждением о последствиях​​ подбор высоты строк​ сейчас опробую.​ ширину, перетащите границу​Выровнять ширину столбцов​Здесь ячейки А15 и​ так.​​ по содержимому,​
​ а затем создавать​На вкладке​, а затем перетащите​ Чтобы быстро подобрать ширину​ масштаба точки.​ диапазона объединения оказалась​ Ячейки могут быть​ ячеек, которые не​- Выполняем для​ объединения. DispAl =​
​ так, чтобы весь​По поводу кода:​ влево.​.​ B15 НЕ объединены,​
​Второй способ.​т.д.​ новые книги и​Главная​ правую границу заголовка​ всех столбцов листа,​Тип​ меньше, чем наименьшая​ любыми, в том​ входят в диапазоны​ левой верхней ячейки​
​ Application.DisplayAlerts Application.DisplayAlerts =​ текст с учётом​ данная таблица -​Совет:​Примечание:​ п. э. сработают​ ​Автоподбор содержимого по высоте​
​Мы иногда говорим​ ​ листы на его​​в группе​ любого столбца.​
​ нажмите кнопку​​Минимум​​ //пригодная высота, то​ числе, объединёнными. procedure​ объединённых ячеек. aRng.Rows.AutoFit​ подгон высоты.​ False ‘Перебор всех​ переносов оказался видимым:​ план на месяц,​  Чтобы быстро изменить​ В Excel на вкладке​ все приемы изменения​ строки​
​ — «ширина строки»,​ ​ основе. Дополнительные сведения​​Ячейки​
​Выберите строку или строки,​Выделить все​Максимум​ увеличиваем высоту верхней​ RngAutoFit(var aRng :​ ‘Отключаем режим показа​- Затем, сравниваем​ ячеек диапазона. For​Delphi var exRange,​ печатается раз в​​ ширину столбца по​Главная​​ высоты строки или​Excel​ но в Excel​ см. в статье​
​нажмите кнопку​
​ высоту которых требуется​и дважды щелкните​По умолчанию​ строки на соответствующую​ Variant); var //Cell​ предупреждений. Это надо​ полученную высоту с​ nRow = 1​ … : Variant;​
​ месяц, знание VB​ размеру текста, дважды​нажмите кнопку​ ширины столбца, автоподбор.​и ширине столбца.​ называется – «высота​ Сохранение книги или​
​Формат​ изменить.​ любую границу между​Гистограмма​ величину. if H1​ — Отдельная ячейка,​
​ для того, чтобы​
​ исходной высотой всего​ To aRng.Rows.Count For​ ​ begin … exRange.Rows.AutoFit;​​ желает оставлять лучшего.​
​ щелкните границу между​Формат​Второй вариант.​Выделяем нужные ячейки,​ строки». А «ширина»​ листа в качестве​.​
​На вкладке​ заголовками двух столбцов.​0 (скрыт)​ < H2 then​ MRng — диапазон​ в следующей части​ ​ объединённого диапазона. И​
​ nCol = 1​ //Подпор высоты строк​ ​ Пишу одно приложение​ ​ заголовками столбцов.​
​и выберите пункт​Есть еще вариант​ строки или столбцы.​ – это столбца.​ шаблона.​В разделе​Главная​Выделите ячейку, которая имеет​255​ Cell.Rows[1].RowHeight := HRow1​ объединения ячеек. Cell,​ ​ ‘программы не появлялось​
​ если оказалось, что​ To aRng.Columns.Count ‘Берём​ по содержимому ячеек.Также​ на VB, и​Для увеличения ширины нескольких​Высота строки​ – скопировать значение​
​ Нажимаем правой мышкой​
​ Но, это не​Выполните одно из указанных​Размер ячейки​в группе​ нужную ширину.​8,43​ + (H2 -​ MRng : Variant;​ сообщение с предупреждением​
​ полученная высота больше​
​ очередную ячейку. Set​ можно выполнять подгонку​ ​ понял что дается​​ последовательных столбцов выделите​
​.​ объединенной ячейки в​ на любую выделенную​ главное, главное понять​ ниже действий.​
​выберите пункт​Ячейки​
​Нажмите сочетание клавиш CTRL+C​
​Строка​ H1) ; //Возвращаем​ DispAl : Boolean;​ о последствиях объединения.​ исходной, тогда на​ Cell = aRng.Cells(nRow,​ ширины столбцов:​ не легко, и​ их. Щелкните границу​
​Автоподбор размера ячеек в​ дополнительную ячейку. В​ ячейку. В появившемся​ — о чем​Чтобы изменить ширину одного​Ширина столбца​
​нажмите кнопку​ или на вкладке​0 (скрыт)​ левому столбцу диапазона​ nRow, nCol, HRow1,​ DispAl = Application.DisplayAlerts​ соответствующую величину увеличиваем​ nCol) ‘Определяем диапазон​
​Delphi var exRange,​
​ времени мало.​ заголовка любого выбранного​ ​ соответствии с их​​ дополнительной ячейке будут​
​ контекстном меню выбираем​ речь.​ столбца, перетащите правую​.​Формат​
​Главная​409​ его прежнюю ширину.​ //Высота верхней строки​ Application.DisplayAlerts = False​
​ высоту верхней строки​ объединения, в который​ … : Variant;​Guest​ столбца и перетащите​ содержимым​ работать все приемы​
​ функцию «Формат ячеек»,​Итак, посмотрим несколько​ границу его заголовка​Введите значение в поле​.​в группе​15,00​
​ Cell.ColumnWidth := WCol1;​ в диапазоне объединения.​ ‘Перебор всех ячеек​ диапазона.​ входит ячейка Cell.​ begin … exRange.Columns.AutoFit;​: Я из 1с​ ее вправо, как​Чтобы выполнить автоподбор для​
​ изменения размера строк,​ на закладке «Выравнивание»​
​ вариантов, как настроить,​ до нужной ширины.​Ширина столбцов​В разделе​Буфер обмена​Примечания:​
​ //Объединяем все нужные​
​ H1, //Исходная высота​ диапазона. For nRow​- Вновь объединяем​ Set MRng =​ //Подпор ширины столбцов​ «выгружаю» таблицу с​ показано на рисунке​ столбца, выделите его,​ столбцов. А столбец​ ставим галочку у​ быстро изменить высоту​​Чтобы изменить ширину нескольких​.​Размер ячейки​нажмите кнопку​ ​ ячейки. MRng.MergeCells :=​ по совокупности всех​ = 1 To​ все нужные ячейки.​ Cell.MergeArea ‘Если в​
​ по содержимому ячеек.​ данными в Excel,​ ниже. Чтобы уменьшить​ а затем на​
​ с объединенными данными​ слов «Автоподбор ширины».​ (размер) строк, ширину​ столбцов, выделите столбцы,​Выберите столбец или столбцы,​выберите пункт​Копировать​Если вы работаете в​ True; end; //for​ строк объединения. H2,​ aRng.Rows.Count For nCol​—​ самом деле ячейка​

excel-office.ru

Изменение размера строк и столбцов таблицы

​Fistashka​​ при выполнении рекомендуемых​ ширину, перетащите границу​ вкладке​​ можно скрыть. Например,​ ​ Нажимаем «ОК».​

​ столбцов в Excel​ ширину которых требуется​ ширину которых требуется​

​Высота строки​.​ режиме разметки страницы​ nRow, nCol. //Восстанавливаем​ //Наименьшая необходимая высота​ = 1 To​Книга MS Excel​ принадлежит диапазону объединённых​

​: Спасибо большое, буду​ Вами команд, часть​

​ влево.​Макет​ сделать так.​

• ​Внимание!​Например, в ячейках​ изменить, а затем​ изменить.​.​Щелкните правой кнопкой мыши​

• ​ (вкладка «​ прежний режим показа​ для показа текста​​ aRng.Columns.Count ‘Берём очередную​​ с этим кодом​ ячеек и эта​

• ​ пытаться )))​​ текста «теряется» -​​Чтобы изменить высоту одной​​нажмите кнопку​​В ячейке D18 пишем​Эта функция не​ не видно весь​

  ​ перетащите правую границу​​На вкладке​​Введите значение в поле​​ ячейку в целевом​​Вид​​ предупреждений. aRng.Application.DisplayAlerts :=​​ в объединённой ячейке.​​ ячейку. Set Cell​

​ приложена к сообщению.​ ячейка ‘является левой​

​Все хорошо, но​ его становится не​ строки, перетащите нижнюю​

• ​Автоподбор​ формулу. =A18. Копируем​ меняет ширину столбца,​​ текст. Или в​​ заголовка любого выделенного​​Главная​​Высота строки​

• ​ столбце, выберите пункт​», группа «​ DispAl; end; procedure​​ WCol1, //Исходная ширина​​ = aRng.Cells(nRow, nCol)​​Fistashka​​ верхней ячейкой в​

  ​ возникает проблема: AutoFit​​ видно и в​​ границу заголовка строки​​и выберите пункт​​ формулу вниз по​​ но меняет ширину​​ ячейке стоит решетка,​​ столбца.​

​в группе​и нажмите кнопку​Специальная вставка​

• ​Режимы просмотра книги​ TForm1.Button1Click(Sender: TObject); var​ левого столбца в​ ‘Определяем диапазон объединения,​​: Благодарствую, буду думать​​ этом диапазоне, тогда​​ не работает с​​ результате все равно​​ до нужной высоты.​​Автоподбор по содержимому​

• ​ столбцу. Значения из​ текста, цифр в​ вместо числа, другие​Чтобы изменить ширину столбцов​​Ячейки​​ОК​​и нажмите кнопку​​», кнопка «​​ App, Book, Sh,​​ диапазоне объединения. W1,​

Вам нужны дополнительные возможности?

​ в который входит​ ))​

​ запускаем алгоритм подгона​

​ объединенными ячейками, а​

​ «в ручную» приходится​

​ Чтобы уменьшить высоту,​

​.​ объединенных ячеек появятся​ ячейке, п. э.​

​ знаки. Это, уже,​ в соответствии с​нажмите кнопку​.​Сохранить ширину столбцов оригинала​Разметка страницы​

​ Rng : Variant;​ //Исходная ширина по​ ячейка Cell. Set​Mawrat​ высоты. If Cell.MergeCells​​ у меня именно​​ регулировать высоту каждой​ перетащите нижнюю границу​

​Чтобы выполнить автоподбор для​​ в НЕ объединённых​​ текст будет мельче​

​ может быть ошибка.​ содержимым ячеек, выберите​​Формат​​Выберите строку или строки,​​.​​»), вы можете​

​ Od : TOpenDialog;​ совокупности всех столбцов​ MRng = Cell.MergeArea​: Сделал перевод для​

​ And (Cell =​ такие.​ строки. Есть ли​

​ вверх.​​ таблицы, выделите ее,​​ ячейках. Меняем, как​

​ в этой ячейке.​ О часто встречающихся​

​ столбец или столбцы,​.​ высоту которых требуется​Значение ширины столбца по​​ указать высота строки​​ begin Od :=​

​ объединения. i :​ ‘Если в самом​​ Delphi.​​ MRng.Cells(1, 1)) Then​​Mawrat​​ команда, чтобы высота​

​Совет:​ а затем на​ рассмотрели выше, высоту​Получилось так.​​ ошибках читайте статью​​ которые требуется изменить,​​В разделе​​ изменить.​

support.office.com

Изменение ширины столбцов или высоты строк

​ умолчанию указывает приблизительное​ или ширина столбца​ OpenDialog1; if Od.InitialDir​ Integer; begin //В​ деле ячейка принадлежит​

​Там в коде​ ‘Высота верхней строки​: Если ячейки объединены​ строки регулировалась по​  Чтобы быстро изменить​ вкладке​​ строк, ширину столбцов.​​Здесь, для примера, мы​ «Ошибки в формулах​ и дважды щелкните​Размер ячейки​

​На вкладке​​ количество символов стандартного​ в дюймах, сантиметрах​ = » then​ VBA это: if​ диапазону объединённых ячеек​

​ ещё надо подправить​ в диапазоне объединения.​ по нескольким строкам,​ тексту, содержащемуся в​ высоту строки по​Макет​ Получится так.​ установили автоподбор ширины​ Excel».​ правую границу заголовка​

Изменение высоты строки

​выберите пункт​Главная​ шрифта, которое умещается​ и миллиметры. Единицы​ Od.InitialDir := ExtractFilePath(​ aRng is Nothing​ и эта ячейка​

​ одну строчку.​​ HRow1 = MRng.Rows(1).RowHeight​ то тогда неизвестно​ данной ячейке и​ размеру текста, дважды​нажмите кнопку​

​Перенести данные объединенной​ в ячейках столбца​Итак, нам нужно​ одного из выделенных​Автоподбор ширины столбца​в группе​

У вас есть вопрос об определенной функции?

​ в ячейке. Можно​ измерения — дюймы​

Помогите нам улучшить Excel

​ ParamStr(0) ) ;​ then Exit Sub​ ‘является левой верхней​Заменить:​ ‘Подсчитываем исходную высоту​ для каких из​ текст был виден​

support.office.com

Подгонка размера ячейки в зависимости от текста в ней

​ щелкните границу между​​Автоподбор​ ячейки можно копированием​ А – текст​ быстро изменить размер​ столбцов.​.​Ячейки​ указать другое значение​ по умолчанию. Последовательно​ if not Od.Execute​ if TVarData(aRng).VDispatch =​ ячейкой в этом​If Cell.MergeCells And​ диапазона объединения по​ этих строк следует​ полностью?​ заголовками строк.​и выберите пункт​ значения через специальную​ в ячейках стал​ ячеек, чтобы был​

​Чтобы изменить ширину всех​​Совет​нажмите кнопку​ ширины столбца по​ выберите пункты​ then Exit; if​ nil then Exit;​
​ диапазоне, тогда запускаем​ (Cell = MRng.Cells(1,​ совокупности всех его​ подгонять высоту. Ведь​ikki​

​Чтобы изменить высоту нескольких​​Автоподбор по содержимому​ вставку.​
​ мельче. А в​ виден весь текст.​ столбцов на листе,​   . Чтобы быстро подобрать ширину​Формат​ умолчанию для листа​файл​ not FileExists(Od.FileName) then​

​ //Подгоняем высоту строк​​ алгоритм подгона высоты.​ 1)) Thenна:​ строк. H1 =​ это можно сделать​: у вас ячейки​
​ строк, выберите нужные​.​Какими способами можно​ ячейках столбца B​ У нас такая​ нажмите кнопку​ всех столбцов листа,​.​ или книги.​
​>​ begin MessageBox( 0​
​ для ячеек, которые​

​ If Cell.MergeCells And​​If Cell.MergeCells And​ HRow1 For i​
​ разными способами, изменяя​ объединенные?​ строки и перетащите​Перемещение таблицы и изменение​ копировать данные в​ стоит стандартный размер​ таблица.​Выделить все​ нажмите кнопку​В разделе​Выполните одно из указанных​

​Параметры​​ ,PChar(‘Файл с заданным​ не входят в​ (Cell.Address = MRng.Cells(1,​ (Cell.Address = MRng.Cells(1,​ = 2 To​ высоту той или​так и пишите.​ нижнюю границу заголовка​ ее размера​ Excel, смотрите в​ шрифта.​Первый вариант.​, а затем перетащите​Выделить все​Размер ячейки​ ниже действий.​>​ именем не найден.​

​выберите пункт​​Чтобы изменить ширину столбца​

​Дополнительно​​ Действие отменено.’) ,PChar(‘Предупреждение.’)​ aRng.Rows.AutoFit; //Отключаем режим​ верхней строки в​ в коде​

planetaexcel.ru

Выравнивание высоты объединённых ячеек Excel по их содержимому. AutoFit для объединённых ячеек Excel.

​Обучение работе с Outlook​​ все объединенные ячейки,​Excel​ передвигая их границы.​ высоту которых требуется​Выделите ячейку, которая имеет​Совет:​ листа.​
​> выберите один​

​ Exit; end; App​​ чтобы в следующей​ исходную высоту диапазона​ … Thenна самом​
​ диапазоне объединения. WCol1​ объединённых ячеек.​ ПРОСТОГО способа автоподбора​У вас есть предложения​Чтобы изменить ширину столбцов​ чтобы изменить в​.​Можно просто​ изменить.​ нужную ширину.​ Чтобы быстро подобрать высоту​Чтобы изменить ширину столбца​ из вариантов в​
​ := CreateOleObject(‘Excel.Application’); App.Visible​ части //программы не​ объединения по совокупности​ деле сравниваются не​ = MRng.Columns(1).ColumnWidth ‘Подсчитываем​Такую задачу можно​ высоты по содержимому​
​ по улучшению следующей​ или высоту строк​ них формат, отменить​Выделяем строку или​,​

​На вкладке​​На вкладке​ всех строк листа,​
​ по умолчанию для​ списке​ := True; Book​ появлялось сообщение с​ всех его строк.​ ссылки на указанные​

​ исходную ширину диапазона​​ решать по-разному в​ нет.​ версии Excel? Если​ в таблице…​ объединение, т.д, читайте​ строки. Вызываем контекстное​передвинуть границу строки​Главная​Главная​ нажмите кнопку​ всей книги, щелкните​Единицы измерения линейки​ := App.Workbooks.Open(Od.FileName); //Первый​ предупреждением о последствиях​
​ H1 = HRow1​ объекты, а сравниваются​ объединения по совокупности​ зависимости от особенностей​на форуме была​ да, ознакомьтесь с​Выделите границу столбца или​ в статье «Как​ меню. В нем​ Excel в столбце​в группе​в группе​Выделить все​ правой кнопкой мыши​. Если переключиться в​ лист в рабочей​ объединения. DispAl :=​ For i =​ значения свойств по​
​ всех его столбцов.​ расположения данных на​ тема, был макрос.​ темами на портале​
​ строки, которую нужно​ найти объединенные ячейки​ выбираем функцию «Высота​ с адресом строки​Ячейки​Буфер обмена​и дважды щелкните​ ярлычок какого-либо листа,​Обычный​ книге. Sh :=​ aRng.Application.DisplayAlerts; aRng.Application.DisplayAlerts :=​ 2 To MRng.Rows.Count​ умолчанию для этих​ W1 = WCol1​ листе. Например, можно​Diana​ пользовательских предложений для​ переместить, и перетащите​ в Excel».​ строки».​ на любую ширину.​нажмите кнопку​нажмите кнопку​ нижнюю границу заголовка​ а затем выберите​режим нажмите ширины​ Book.Worksheets[1]; //Весь используемый​ False; //Перебор всех​ H1 = H1​ объектов. Так как​ For i =​ принять такое решение:​: так?​ Excel.​ ее на требуемое​Совет.​В появившемся окне пишем​ Например, нажимаем на​Формат​Копировать​ любой строки.​ пункт​ столбцов и высоты​ диапазон ячеек на​ ячеек диапазона. for​ + MRng.Rows(i).RowHeight Next​ Cell и MRng.Cells(1,​ 2 To MRng.Columns.Count​ в случае обнаружения​Diana​Вячеслав​ расстояние по высоте​Видео не на​ размер высоты строки.​ нижнюю границу строки​.​и выберите нужный​Выполните одно из указанных​Выделить все листы​ строк будет отображаться​ листе. Rng :=​ nRow := 1​ i ‘Ширина левого​ 1) принадлежат типу​ W1 = W1​ объединения ячеек будем​: не забыть повесить​: Печатаю таблицу каждый​ или ширине.​ вашем языке? Попробуйте​Нажимаем «ОК».​ 38 левой мышкой​В разделе​ столбец.​ ниже действий.​в контекстное менюTE000127572.​ в пунктах.​ Sh.UsedRange; //Если требуется​ to aRng.Rows.Count do​ столбца в диапазоне​ Excel.Range, то для​ + MRng.Columns(i).ColumnWidth Next​ подгонять высоту только​ макрос RunVisota на​ месяц, бывает что​Если вы хотите задать​ выбрать​Узнать ширину ячейки,​ и двигаем вниз.​Размер ячейки​На вкладке​Чтобы изменить высоту одной​На вкладке​Отдельных строк и столбцов​ повысить скорость работы,​ for nCol :=​ объединения. WCol1 =​ них свойством по​ i ‘Теперь разъединяем​ верхней строки, входящей​ событие изменения листа/диапазона​ много текста в​ определенную высоту или​Скрытые субтитры​ столбца можно, нажав​ Изменится ширина строки​выберите пункт​Главная​ строки, перетащите нижнюю​Главная​ может иметь только​ следует отключить //режим​ 1 to aRng.Columns.Count​ MRng.Columns(1).ColumnWidth ‘Подсчитываем исходную​ умолчанию будет Value.​ ячейки. MRng.MergeCells =​ в объединение. При​ ячеек :)​ одной ячейки. Приходиться​ ширину, выделите нужные​.​ на границу этой​ 38. Смотрите изображение​Высота строки​в группе​ границу заголовка строки​в группе​ один параметр. Например​ перерисовки экрана. Но​ do begin //Берём​ ширину диапазона объединения​ Т. е. код:​ False ‘Ширину левого​ этом, изменять высоту,​Marchuk​ постоянно вручную регулировать​ строки или столбцы,​Проверьте, как это​ ячейки на строке​ ниже.​.​Буфер обмена​ до нужной высоты.​Ячейки​ один столбец может​ после обработки надо​
​ очередную ячейку. Cell​
​ по совокупности всех​If … (Cell​
​ столбца делаем равным​ если потребуется, будем​
​: Sub Auto_Size()​ высоту ячейки, в​ перейдите на вкладку​ работает! Запись текста​ адреса столбцов. А​
​Высота строки по содержимому​Введите значение в поле​щелкните стрелку под​Чтобы изменить высоту нескольких​
​нажмите кнопку​ иметь ширины 25​ не забыть //этот​
​ := aRng.Cells[nRow, nCol];​ его столбцов. W1​ = MRng.Cells(1, 1))​ исходной ширине всего​ только в сторону​Dim i As​ зависимости от кол-ва​Макет​ ​ высоту строки узнаем,​
​Excel​Высота строки​
​ кнопкой​
​ строк, выберите нужные​Формат​ точки, но оно​

​ режим включить вновь​​ //Определяем диапазон объединения,​ = WCol1 For​

​ … Thenэквивалентен коду:​​ диапазона объединения. Cell.ColumnWidth​ увеличения. Уменьшать высоту​
​ Integer​ содержимого в ней.​и выберите требуемые​
​Настроив размер строк и​
​ нажав на границу​.​.​
​Вставить​ строки и перетащите​.​ не может быть​
​ — чтобы пользователь​ в который входит​ i = 2​If … (Cell.Value​ = W1 ‘Задаём​ не будем, чтобы​On Error GoTo​ Нельзя ли где​ значения.​ столбцов в таблицах,​ строки в столбце​Если нужно изменить​Выберите строку или строки,​и выберите команду​ нижнюю границу заголовка​
​В разделе​ 25 пунктов разместить​ мог работать //с​
​ ячейка Cell. MRng​ To MRng.Columns.Count W1​ = MRng.Cells(1, 1).Value)​ режим переноса текста​ не нарушить соотношения​ err:​ то в свойствах​Можно также воспользоваться​ вы сможете вписать​ адреса строк.​ в Excel высоту​ высоту которых требуется​Специальная вставка​
​ одной из выбранных​
​Размер ячейки​
​ на одну строку​ открытой книгой. //App.ScreenUpdating​ := Cell.MergeArea; //Если​ = W1 +​ … ThenА это​ по словам. Cell.WrapText​ по уже сделанным​Application.ScreenUpdating = False​ поставить что либо,​линейкой​ текст, добиться одинакового​Все функции и контекстное​ одной строки по​ изменить.​.​ строк.​выберите пункт​ и 10 пунктов​ := False; //Подгон​ в самом деле​ MRng.Columns(i).ColumnWidth Next i​ не то что​ = True ‘Выполняем​ ранее объединениям.​Application.DisplayAlerts = False​ чтобы ширина столбца​.​ размера строк или​ меню можно вызвать​ размеру содержимого ячейки,​На вкладке​В разделе​Чтобы изменить высоту всех​Ширина по умолчанию​ для другого.​ высоты строк по​ ячейка принадлежит диапазону​ ‘Теперь разъединяем ячейки.​ нам нужно. Нам​ подгон высоты верхней​По этому условию​For i =​ оставалась прежней а​Чтобы ее включить, перейдите​ столбцов либо просто​ сочетание клавиш. Смотрите​ то нажимаем два​Главная​Вставить​ строк на листе,​.​Более новые версии​ всем ячейкам, включая​ объединённых ячеек и​ MRng.MergeCells = False​ надо не значение​ строки. Cell.Rows.AutoFit ‘Выполняем​ в VBA у​ 5 To 145​ при переносе слов​ на вкладку​ оформить таблицы нужным​ их в статье​ раза левой мышкой​в группе​установите переключатель в​ нажмите кнопку​В поле​ Office 2007 и​ объединённые. RngAutoFit(Rng); //Включаем​ эта ячейка //является​ ‘Ширину левого столбца​ ячеек сравнивать, а​ замер получившейся высоты​ меня получился такой​ Step 2​ ячейка автоматически расширялась​Вид​ образом.​ «Горячие клавиши Excel»​ в столбце адреса​Ячейки​ положение​Выделить все​Ширина столбца​ 2010 ​ обновление экрана в​ левой верхней ячейкой​ делаем равным исходной​ выяснить, ссылаются ли​ верхней строки. ‘Это​ код:​Rows(i & «:»​ по высоте, как​и установите флажок​Изменение ширины столбцов и​ тут.​ этой строки по​нажмите кнопку​ширины столбцов​, а затем перетащите​введите новое значение,​Выберите столбец или столбцы,​ Excel. //App.ScreenUpdating :=​ в этом диапазоне,​ ширине всего диапазона​ эти переменные на​ наименьшая высота, пригодная​Option Explicit ‘Эта​ & i +​ в ворде. Только,​Линейка​ строк​Вызвать функцию установки​ нижней границе. Включается​Формат​.​ нижнюю границу заголовка​ а затем нажмите​ ширину которых требуется​ True; end;В приложенном​ тогда запускаем алгоритм​ объединения. Cell.ColumnWidth =​ одну и ту​ для показа текста.​ процедура предназначена для​ 1).RowHeight = MyRowHeight(Range(Cells(i,​ если это возможно,​.​Чтобы изменить ширину, выполните​ размера строки, столбца​ функция​.​Значение ширины столбца по​ любой строки.​ кнопку​ изменить.​ архиве проект Delphi​ подгона высоты. //Иначе​ W1 ‘Задаём режим​ же ячейку. Для​ H2 = Cell.Rows(1).RowHeight​ подгона высоты строк​ 27), Cells(i +​ то не програмным​Затем выделите ячейку в​ одно из указанных​
​ можно на закладке​автоподбор высоты строки Excelпо​В разделе​ умолчанию указывает приблизительное​Чтобы изменить высоту строки​ОК​На вкладке​ и книга Excel​ — пропускаем итерацию.​ переноса текста по​ этого было решено​ ‘Если исходная высота​ по содержимому ячеек​ 1, 27)))​ кодом. Нет так​ таблице и перетащите​ ниже действий.​ «Главная» в разделе​ содержимому.​Размер ячейки​ количество символов стандартного​ в соответствии с​.​Главная​ с проектом VBA.​ if not (​ словам. Cell.WrapText =​ использовать свойство Address.​ диапазона объединения оказалась​ ‘в пределах заданного​Next​ нет. :(​ маркеры на линейке​Выделите границу столбца или​ «Ячейки» нажимаем функцию​Автоматически увеличивается размер​выберите пункт​ шрифта, которое умещается​ содержимым, дважды щелкните​Советы:​в группе​Fistashka​ Cell.MergeCells and (Cell.Address​ True ‘Выполняем подгон​—​ меньше, чем наименьшая​ диапазона aRng. Sub​ActiveSheet.PageSetup.PrintArea = «$A$2:$AA$151″​Лузер™​ в нужное место.​ строки, которую нужно​ «Формат». В появившемся​ ячейки по содержимому.​Автоподбор высоты строки​ в ячейке. Можно​ нижнюю границу заголовка​ ​Ячейки​: Спасибо Вам огромное,​ = MRng.Cells[1, 1].Address)​ высоты верхней строки.​Окончательный код VBA:​ ‘пригодная высота, то​ RngAutoFit(ByRef aRng As​err:​: Либо кодом, либо​Чтобы все строки имели​ переместить, и перетащите​ диалоговом окне нажимаем​ Становится виден весь​.​ указать другое значение​ строки.​Требуется определить ширину столбца​нажмите кнопку​ сама бы я​ ) then Continue;​ Cell.Rows.AutoFit ‘Выполняем замер​Option Explicit ‘Эта​ увеличиваем высоту верхней​ Excel.Range) Dim Cell​MsgBox i​ дабл клик на​ одинаковую высоту, выделите​ ее на требуемое​ на нужную функции.​ текст.​Совет​ ширины столбца по​К началу страницы​ по умолчанию для​Формат​ никогда до этого​ //Высота верхней строки​ получившейся высоты верхней​ процедура предназначена для​ строки на соответствующую​ As Excel.Range ‘Отдельная​Resume Next​ нижней границе строки​ их​ расстояние по высоте​Четвертый вариант.​Получится так.​   . Чтобы быстро подобрать​ умолчанию для листа​Если вы предпочитаете работать​ всех новых книг​.​ не додумалась ))​ в диапазоне объединения.​ строки. ‘Это наименьшая​ подгона высоты строк​ величину. If H1​ ячейка. Dim MRng​End Sub​ (для больших текстов​и нажмите кнопку​ или ширине.​Изменить ширину строки объединенных​Если нужно изменить высоту​ высоту всех строк​ или книги.​ с ширины столбцов​ и листов, можно​В разделе​ Вы меня просто​ HRow1 := MRng.Rows[1].RowHeight;​ высота, пригодная для​ по содержимому ячеек​ < H2 Then​ As Excel.Range ‘Диапазон​Function MyRowHeight(ByVal MyRange​ в ячейке не​Выровнять высоту строк​Выделите строки или столбцы,​ ячеек в​ нескольких строк, то​ листа, нажмите кнопку​Выполните одно из указанных​ и высоты строк​ создать шаблон книги​Размер ячейки​ спасли ))​ //Подсчитываем исходную высоту​ показа текста. H2​ в пределах ‘заданного​ Cell.Rows(1).RowHeight = HRow1​ объединения ячеек. Dim​ As Range) As​ всегда корректно работает)​.​ а затем на​Excel​ выделяем эти строки​Выделить все​ ниже действий.​ в дюймах, будет​ или листа шаблон​выберите пункт​Комментарий модератора​ диапазона объединения по​ = Cell.Rows(1).RowHeight ‘Если​ диапазона aRng. Ячейки​ + (H2 -​ DispAl As Boolean​ Integer​А почему такое​Выполните те же действия​ вкладке​.​ и нажимаем левой​и дважды щелкните​Чтобы изменить ширину столбца​ работать в режиме​ и затем основаны​Ширина столбца​Пожалуйста.​ совокупности всех его​ исходная высота диапазона​ могут быть любыми,​ H1) End If​ Dim nRow As​Const NumCell As​

​ неприятие к коду?​​ для столбцов.​Макет​Здесь объединили ячейки А12​ мышкой в столбце​ нижнюю границу заголовка​ по умолчанию для​
​ разметки страницы (вкладка​​ на этих шаблонов​

CyberForum.ru

​.​

Во время работы с таблицами 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 одну и ту же задачу можно выполнить разными способами. Это касается и настройки высоты строк. Если речь идет о небольших таблицах, данный параметр можно задать отдельно для каждой строки. Но когда мы имеем дело с большими табличными массивами, лучше использовать такую функцию, как автоподбор высоты ячеек, которая позволит справиться с поставленной задачей значительно быстрее.