Paul的工作表中包含一千多行数据。大多数行的高度为12，但有些行的高度超过100。他想知道是否有一种方法可以调整行的高度，以使行不超过40？ （意味着，高度低于40的人将保留其当前高度，但高度超过40的人将被调整为40。）

解决这个问题实际上很容易-您只需要一种方法即可逐步浏览各行，确定当前行的高度，然后调整行高（如果行太大）。可以使用非常简单的宏来完成此操作，例如：

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

宏确定工作表中已使用行的范围，然后逐步浏览这些行。操作属性是.Height属性，将对其进行检查。如果大于40，则将其设置为40。这意味着行高小于40的任何内容都将保持不变。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（10381）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。