How do increase row height in excel by X. ie. Add verticle cell padding

Question

I have this report and I want to increase the vertical cell padding to make it easier to read.

Now, typically you could just select multiple rows and change the row height until you're satisfied.

However, in this case, I have cells with wrapped text and multiple lines. I can't change change the the row height, because the wrapped text will get cut off.

What I want to do is increase the row height of a bunch of cells by a certain value. Rather than just change it to a specify value. ie.

rowheight = rowheight + X

Not

rowheight = X

Can you do this in excel? Will I need VBA?

Answer 1

I'd go for the code below... not sure if there would be a way to apply it for all rows once. I'd be glad (and upvote) if someone else here knows :)

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

Answer 2

Here's a macro to help you out.

First it sets the vertical alignment for each cell to Center.

Next, it takes the current height of each cell and adds 7.5 to it (this is equivalent to 10 pixels). In the end, it adds a 5-pixel padding to the top and bottom part of the cell. Just adjust this value according to your preference.

Sub PadCells()

Set cr = Selection

For Each cr In cr.Rows
    newHeight = cr.RowHeight + 7.5 
    cr.VerticalAlignment = xlCenter
    cr.RowHeight = newHeight
Next cr

End Sub

To use:

1. Select the cells for which you want to adjust the height.
2. Run the macro.