如何根據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，則行高將保持默認高度。您可以根據需要進行更改。