\演算子を使って5行おきに罫線を引く｜Excel VBA

ツイート

Bordersプロパティに定数xlEdgeBottomを指定して下線を引きます。
\演算子は、除算を行ったときの商を計算し整数で返します。
次のサンプルは\演算子を使って選択範囲の表に5行おきに罫線を引きます。ただし、選択範囲の行数が5の倍数だった場合、最後の罫線は引きません。

●サンプル1●

Sub Sample()
    Dim i As Long
    
    With Selection
        For i = 1 To (.Rows.Count - 1) \ 5
            With .Rows(i * 5).Borders(xlEdgeBottom)
                 .LineStyle = xlContinuous
                 .Weight = xlThick
                 .Color = RGB(0, 0, 255)
            End With
        Next i
    End With
End Sub

罫線を引くセル範囲の行数から1を引いた数を5で除算し、その整数部から罫線を引く回数を取得します。
罫線は、セルの下側（xlEdgeBottom）に、青（RGB(0, 0, 255)）の連続線（xlContinuous）を太く（xlThick）引きます。