VBA Excel隔行上色

Option Explicit

Sub 隔行上色()
    Dim i As Long
    Dim intLastRow As Long
    
    intLastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 1 To Int(intLastRow / 2)
        '从B列到K列
        'Range(Cells(2 * i, 2), Cells(2 * i, 11)).Select
        'Selection.Interior.ColorIndex = 34
        Range(Cells(2 * i, 2), Cells(2 * i, 11)).Interior.ColorIndex = 34
    Next i
    
End Sub