Как изменить высоту строки на основе значения ячейки в Excel?

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

Изменение высоты строки на основе значения ячейки с помощью кода VBA

Изменение высоты строки на основе значения ячейки с помощью кода VBA

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Изменение высоты строки на основе значения ячейки:

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", 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

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

4. После этого нажмите кнопку ОК, и высота строки будет изменена на основе значения ячейки следующим образом:

Примечание: В приведенном выше коде VBA условие If H.Value > 15 Then означает, что если значение ячейки больше 15, высота строки будет изменена; если значение ячейки меньше 15, высота строки останется по умолчанию. Вы можете изменить это по своему усмотрению.