如何基於Excel中的單元格值更改行高？

---

使用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。 然後點擊 OK 按鈕，行高度已通過單元格值更改，如下所示：

備註：在上述VBA代碼中， 如果H.Value> 15然後 表示如果單元格值大於15，則行高將被更改；如果單元格值小於15，則行高將保持默認值。 您可以根據需要進行更改。