Excel by default does not provide additional cell margins, which means that the spreadsheet doesn't look very nice and it is hard to read without cell borders.
It is possible to add extra height to each row manually, but here is an easy way below.
Sub AutoFitAndAddSevenPoints()
Dim r As Range
Selection.EntireRow.AutoFit
For Each r In Selection.EntireRow.Rows
On Error Resume Next ' Sometimes it's already at max height
r.RowHeight = r.RowHeight + 7
On Error GoTo 0
Next
End Sub
Sometimes there is too much text, and you just want to resize these rows shorter so the file is more manageable. Here is a macro that resizes the row to the second highest cell in each row.
Sub ResizeToSecondHighest()
' This macro tries to intelligently resize the height of cells so they are not too high.
Dim row As Range
Dim max_height As Double
Dim max_cell As Range
Dim max_cell_length As Double
Dim cell As Range
For Each row In Selection.Cells.Rows
max_height = 0
max_cell_length = 0
For Each cell In row.Cells
If cell.WrapText = True Then ' Skip cells which aren't affecting the height
If cell.ColumnWidth <> 0 Then ' Skip cells which are invisible
If Len(cell.Value2) > max_cell_length Then
max_cell_length = Len(cell.Value)
Set max_cell = cell
ElseIf Len(cell.Value2) = max_cell_length Then ' It's the same, add it to the collection
Set max_cell = Union(max_cell, cell)
End If
End If
End If
Next cell
max_cell.WrapText = False
row.EntireRow.AutoFit
If row.RowHeight > 400 Then
row.Select
Call ResizeToSecondHighest
End If
max_height = row.Height
row.EntireRow.RowHeight = max_height
max_cell.WrapText = True
Next row
End Sub