VBA Excel调整行高

Question

我在Excel中创建报表，我希望VBA根据列K中的值格式化行高。例如，如果单元格K17 = 11.25，我希望第17行为11.25。单元k18 = 21.75，因此行18 = 21.75。

我需要vba来改变17-400的每一行。

这应该相对简单，但我似乎无法想出正确的编码。

Answer 1

由于这很简单，我继续为您提供答案：

Sub RowHeight()

Dim ws as Worksheet
Set ws = Sheets("mySheet") 'replace with your sheet name

Dim rCell as Range
For each rCell in ws.Range("K17:K400")

     rCell.EntireRow.RowHeight = rCell.Value

Next

End Sub