У Пола есть рабочий лист, содержащий более тысячи строк данных. Большинство строк имеют высоту 12, но некоторые имеют высоту более 100. Ему интересно, есть ли способ отрегулировать высоту строк так, чтобы ни одна строка не превышала 40? (Это означает, что те, кто ниже 40, сохранят свой текущий рост, но те, кто старше 40, будут скорректированы до 40.)

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

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

Макрос определяет диапазон используемых строк на листе, а затем проходит по этим строкам. Оперативным свойством является свойство .Height, которое проверяется. Если оно больше 40, то устанавливается значение 40. Это означает, что все, что имеет высоту строки меньше 40, остается неизменным.

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (10381) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.