如何在 vba 中更改行高（附示例）

您可以使用以下方法通过 VBA 更改 Excel 中的行高：

方法一：改变行高

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

这个特定的宏将第三行的高度更改为40 。

注意：Excel 中的默认行高是14.4 。

方法 2：更改多行的高度

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

这个特定的宏将每行的高度从 1 更改为 5 到40 。

方法三：自动调整多行高度

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

这个特定的宏会自动将每行的高度从 1 调整到 8，以便显示每行中最高的文本所需的高度。

以下示例展示了如何在 Excel 中使用以下数据集来实际使用这些方法：

相关：如何在 VBA 中更改列宽

示例 1：更改行的高度

我们可以创建以下宏将第三行的高度更改为 40：

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，只有第三行的高度增加到 40，而所有其他行的高度保持不变。

示例 2：更改多行的高度

我们可以创建以下宏来将每行的高度从 1 更改为 5 到 40：

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，前五行的高度均已更改为 40，而所有其他行的高度保持不变。

示例3：自动调整多行的高度

我们可以创建以下宏来自动调整前八行中每一行的高度，使其达到显示每行中最高文本所需的高度：

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，每行的高度已自动调整为显示每行中最高文本所需的高度：

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何查找最后使用的行
VBA：如何插入带格式的行
VBA：如何计算范围内的行数