How to use macro to replace specific rows

[fauzan_lesmana]

Dear Excel Expert,

Please help me using Macro, I want to replace the height of odd rows like row 1 , row 3, row 5, etc without making any replacement to even rows.
Thank you.

 

[Andrew Poulsom]

Welcome to MrExcel.

Here's an example that you may be able to adapt:

Sub Test()
    Dim r As Long
    With ActiveSheet
        For r = 1 To 20
            If r Mod 2 = 1 Then
                .Rows(r).RowHeight = 20
            End If
        Next r
    End With
End Sub

 

[fauzan_lesmana]

Welcome to MrExcel.

Here's an example that you may be able to adapt:

Sub Test()
    Dim r As Long
    With ActiveSheet
        For r = 1 To 20
            If r Mod 2 = 1 Then
                .Rows(r).RowHeight = 20
            End If
        Next r
    End With
End Sub

Well, thank you Mr. Andrew. This is resolve my problems. I've tried it.

 

[Rick Rothstein]

Here's an example that you may be able to adapt:

Sub Test()
    Dim r As Long
    With ActiveSheet
        For r = 1 To 20
            If r Mod 2 = 1 Then
                .Rows(r).RowHeight = 20
            End If
        Next r
    End With
End Sub

You can eliminate the If..Then test and add a Step argument to the For statement to make this a little easier for the OP to modify...

Sub Test()
    Dim r As Long
        For r = 1 To 20 Step 2
            ActiveSheet.Rows(r).RowHeight = 20
        Next r
End Sub

 

[Andrew Poulsom]

You can eliminate the If..Then test and add a Step argument to the For statement to make this a little easier for the OP to modify...

Why didn't I do it that way? Must be because it's early on Monday morning.