如何在 Microsoft Excel 中按百分比增加多个单元格高度

Question

我有一张表格，其垂直高度不同，例如 20、30 和 40。高度由自动调整排列。问题是单元格彼此非常接近。我想在顶部和底部留出空间。我尝试了垂直对齐，但无法在单元格之间添加空格。如果多个单元格的百分比增加，例如从 20、30、40 增加到 22、33、44，那就太好了。10% 或者如果有一个常数增加，例如从 20、30、40 增加到 22、32、42，那也太好了。2 常数

Answer 1

VBA（宏）可以解决您的问题：

Sub Setrowheight()

    Dim hgt As Variant
    Dim WorkRng As Range

    xTxt = ActiveWindow.RangeSelection.Address

    Set WorkRng = Application.InputBox("Please select the height range:", "Row Height", xTxt, , , , , 8)

For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

---

---

怎么运行的：

• 在 A 列的适当单元格中插入值。
• 任何一个右键点击工作表标签，然后从弹出菜单中点击查看代码或按Alt+F11获取 VB 编辑器。
• 在左上角找到项目浏览器，选择工作表标签然后右键点击并击中插入然后模块。
• 复制&粘贴此代码。
• 跑步宏。
• 选择范围A12:A17以响应输入框并结束好的

您会发现相应行的高度已使用中的单元格值设置A12:A17。

注意：

• 因此，标准行高是在考虑增加甚至减少行高时15.00插入的值。A12:A17

• 您可以根据需要调整单元格引用。