Как увеличить высоту нескольких ячеек на процент в Microsoft Excel

Question

У меня есть таблица с разной высотой по вертикали, например, 20, 30 и 40. Высота упорядочена с помощью автоподбора. Проблема в том, что ячейки расположены очень близко друг к другу. Я хочу добавить пространство сверху и снизу. Я пробовал вертикальное выравнивание, но не смог добавить пространство между ячейками. Было бы здорово, если бы было процентное увеличение нескольких ячеек, например, с 20,30,40 до 22,33, 44. 10% Или было бы также здорово, если бы было постоянное увеличение, например, с 20,30, 40 до 22, 32, 42. 2 константа

Answer 1

VBA (макрос) может решить вашу проблему:

Sub Setrowheight()

    Dim hgt As Variant
    Dim WorkRng As Range

    xTxt = ActiveWindow.RangeSelection.Address

    Set WorkRng = Application.InputBox("Please select the height range:", "Row Height", xTxt, , , , , 8)

For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

---

---

Как это работает:

• Введите значения в соответствующие ячейки столбца A.
• ИлиЩелкните правой кнопкой мышивкладку «Лист» и в появившемся меню нажмитеПосмотреть кодили нажмитеАльт+Ф11чтобы получить редактор VB.
• В левом верхнем углу найдитеПроект Исследователь, выберитеВкладка листазатемЩелкните правой кнопкой мышии ударилВставлятьзатемМодуль.
• Копировать&Вставитьэтот код.
• БЕГАТЬМакрос.
• Выберите диапазон A12:A17для ответаПоле ввода& завершить сХорошо

Вы обнаружите, что соответствующая высота строки была установлена ​​с использованием значений ячеек в A12:A17.

Примечание.

• Стандартная высота строки, 15.00таким образом, вставляет значения с A12:A17учетом того, чтобы увеличить или даже уменьшить высоту строки.

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