Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA Excel调整行高_Vba_Excel - Fatal编程技术网

VBA Excel调整行高

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

我正在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 name

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

     rCell.EntireRow.RowHeight = rCell.Value

Next

End Sub

请发布您所附带的代码,以便我们可以帮助您获得所需的。请查看循环,也请记录您自己的操作,然后查看代码。你需要做的是循环一些你可以宏记录然后决定的东西,这就是我们很多人学习的方式:)没有真正的问题需要回答我可以用宏记录循环,但是我手动输入高度值,这没有帮助。我不能做的是让代码查看K列中的动态单元格。是的,你是对的,我需要关于循环的帮助。