selecting even rows in A and B columns - macro please -urgent

[osmanoca]

Dear Mrexcel lovers and helpfull friends.

hello please help me urgently with macro

i have two columns. A and B
i have many rows. but i want to select all even numbered rows (2,4,6,8.....) in two columns. because i have to merge and center these rows in columns in one click.

im selecting now one by one and this is very hard.
please give me a macro.

 

[MARK858]

Personally I would seriously look at Center across selection rather than merge but here you go.

Sub EvenIt()
    Dim LastRow As Long
    Dim x As Long

    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With

    For x = 1 To LastRow
        If (x Mod 2) = 0 Then
            With Cells(x, 1).Resize(, 2)
                .HorizontalAlignment = xlCenter
                .MergeCells = True
            End With
        End If
    Next x

    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

 

[kbrummert]

This allows a variable range and you can go into the code and choose even or odd...

Sub sb_select_even_odd_cells()

Dim even_odd As Integer

' if you want even cells, set to 0.  If you want odd, set to 1
even_odd = 1

Dim rng As Range
Dim MyRange As Range

Set rng = Selection

Dim cel As Range

    For Each cel In rng
        If cel.Row Mod 2 = even_odd Then
            If MyRange Is Nothing Then
                Set MyRange = Range(cel.Address)
            Else
                Set MyRange = Union(MyRange, Range(cel.Address))
            End If
        End If
    Next
     'Select the new range of only matching criteria
    MyRange.Select
    
    With MyRange
        .HorizontalAlignment = xlCenter
        .MergeCells = True
    End With


End Sub

 

[osmanoca]

Personally I would seriously look at Center across selection rather than merge but here you go.

Sub EvenIt()
    Dim LastRow As Long
    Dim x As Long

    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With

    For x = 1 To LastRow
        If (x Mod 2) = 0 Then
            With Cells(x, 1).Resize(, 2)
                .HorizontalAlignment = xlCenter
                .MergeCells = True
            End With
        End If
    Next x

    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

THANKS REALLY VERY GOOD WORKED. IM HAPPY. GOD ALSO HELPS YOU ALLWAYS IN YOUR LIFE.
THANKS TO OTHER FRIENDS ALSO.

this code merged even rows well. and i want to add a new row under all even rows (that merged under A and B) now.
please give me a macro.