選択範囲を1行おきに塗る関数

■選択範囲に1行おきに色を塗る

Sub ZebraStriped()
    Dim i as long
    For i = 1 To Selection.Rows.Count Step 2
        Selection.Rows(i).Interior.Color = RGB(0, 255, 0)
    Next
End Sub

■選択範囲を1行おきに選択するのみ(色は自分で選ぶ)

Sub ZebraSelect()
    Dim myRow As Range
    Dim i As Long
    
    Set myRow = Selection.Rows(1)
    For i = 1 To Selection.Rows.Count Step 2
        Set myRow = Union(myRow, Selection.Rows(i))
    Next
    myRow.Select
End Sub