如何根据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，行高将保持默认高度。您可以根据需要进行更改。