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

---

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

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

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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, Затем нажмите OK кнопка, высота строки была изменена на значение ячейки следующим образом:

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