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

要更改工作表中的行高，我們大多數(shù)人可能會應(yīng)用“行高”功能來設(shè)置所選行的高度。 但是，如果您有一個(gè)數(shù)字列表，現(xiàn)在，您想要根據(jù)單元格值設(shè)置行高，如下圖所示，如何在Excel中處理此任務(wù)？

使用VBA代碼根據(jù)單元格值更改行高

使用VBA代碼根據(jù)單元格值更改行高

沒有直接的方法可以一次根據(jù)單元格值更改多個(gè)行高，但是，使用下面的VBA代碼，它可以幫助您盡快完成此工作。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：根據(jù)單元格值更改行高：

Sub rowheight()Updateby ExtendofficeDim hgt As VariantDim WorkRng As RangexTxt = ActiveWindow.RangeSelection.AddressSet WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)For Each H In WorkRngIf H.Value > 15 Thenhgt = H.ValueH.EntireRow.SelectSelection.rowheight = hgtEnd IfNext HEnd SubCopy

3。 然后按 F5 鍵運(yùn)行此代碼，并彈出提示框，提醒您選擇要通過單元格值設(shè)置行高的單元格，請參見屏幕截圖：

4。 然后點(diǎn)擊 OK 按鈕，行高度已通過單元格值更改，如下所示：

備注：在上述VBA代碼中， 如果H.Value> 15然后 表示如果單元格值大于15，則行高將被更改；如果單元格值小于15，則行高將保持默認(rèn)值。 您可以根據(jù)需要進(jìn)行更改。

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel