How can I change the row height of specified rows?

  • Thread starter Thread starter Di_W
  • Start date Start date
Ok, try this:
Sub demo()
Dim i As Integer
With Range("a1")

For i = 1 To 200

..Offset(i * 4, 0).Select
Selection.RowHeight = 25

Next i
End With

End Sub
 
Manually

Enter numbers 1 to 4 in an unused column.

Select those 4 cells and right-click drag down as far as you wish.

Release and "copy cells"

Autofilter for number 4

Then F5>Special>Visible Cell Only>OK

Format>Row>Height........set a height.

Get rid of Autofilter. Delete unused column.

Or run a macro.

Sub rowht()
For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
Rows(i).RowHeight = 24
Next i
End Sub


Gord Dibben MS Excel MVP
 
Back
Top