VBA Excel调整行高
我正在Excel中创建报告,希望VBA根据K列中的值设置行高的格式。例如,如果单元格K17=11.25,我希望第17行为11.25。单元格k18=21.75,因此第18行=21.75 我需要vba更改17-400之间的每一行VBA Excel调整行高,vba,excel,Vba,Excel,我正在Excel中创建报告,希望VBA根据K列中的值设置行高的格式。例如,如果单元格K17=11.25,我希望第17行为11.25。单元格k18=21.75,因此第18行=21.75 我需要vba更改17-400之间的每一行 这应该是相对简单的,但我似乎不能想出正确的编码 由于这是一个简单的问题,我继续为您提供了答案: Sub RowHeight() Dim ws as Worksheet Set ws = Sheets("mySheet") 'replace with your sheet
这应该是相对简单的,但我似乎不能想出正确的编码 由于这是一个简单的问题,我继续为您提供了答案:
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
请发布您所附带的代码,以便我们可以帮助您获得所需的。请查看循环,也请记录您自己的操作,然后查看代码。你需要做的是循环一些你可以宏记录然后决定的东西,这就是我们很多人学习的方式:)没有真正的问题需要回答我可以用宏记录循环,但是我手动输入高度值,这没有帮助。我不能做的是让代码查看K列中的动态单元格。是的,你是对的,我需要关于循环的帮助。