罫線

右二重線

Sub 罫線_右二重線()        'セルの右に二重罫線を引く        With Selection.Borders(xlEdgeRight)        .LineStyle = xlDouble        .ColorIndex = 0        .TintAndShade = 0        .Weight = xlThick    End With
End Sub