如何通过 X 增加 Excel 中的行高。即。添加垂直单元格填充

Question

我有这份报告，我想增加垂直单元格填充以使其更易于阅读。

现在，通常您只需选择多行并更改行高，直到您满意为止。

但是，在这种情况下，我有带有换行文本和多行的单元格。我无法更改行高，因为换行的文本会被截断。

我想要做的是将一堆单元格的行高增加一定的值。而不是仅仅将其更改为指定值。IE。

rowheight = rowheight + X

不是

rowheight = X

你能在excel中做到这一点吗？我需要 VBA 吗？

Answer 1

我刚刚遇到了这个问题，上述解决方案在某些情况下并不令人满意。

1. 在某处插入一列 - 可能是 A 列。选择整列。
2. 给它最厚的顶部/底部边框 - 实心脂肪条 - 应用/确定。
3. 选择您想要填充的所有其他列。垂直居中。
4. 隐藏带边框的列并保存。

这为您提供了大约 3 个单位/5px 顶部和底部的顶部和底部填充。使用 arial，足以防止顶部和尾部接触单元格边缘。

提供的 VBA 代码很好。但是，一旦您的电子表格被需要缩小某些列的人查看并因此删除手动格式或应用自己的格式时，它就会失败。如果用户知道他们在做什么，他们将按 Ctrl + A 并双击行指示器以自动调整所有行的高度。

使用边框提供了一个无论如何都可以工作的解决方案，除非手动格式化。

Answer 2

我会选择下面的代码...不确定是否有办法将其应用于所有行一次。如果这里的其他人知道，我会很高兴（并投票）:)

Sub fixRowHeight()

Dim oRange As Excel.Range
Dim oRow As Excel.Range
Dim dblFactor As Double

Set oRange = Sheets(1).Range("A1:B25")
dblFactor = 5

For Each oRow In oRange.Rows

    oRow.RowHeight = oRow.RowHeight + dblFactor

Next oRow

End Sub