Sub 罫線を1本だけ消す()
    
    'セルB3:C3の上辺だけ消す
    Range("B3:C3").Borders(xlEdgeTop).LineStyle = xlNone
    
    'セルB3:B6の右辺だけ消す
    Range("B5:B6").Borders(xlEdgeRight).LineStyle = xlLineStyleNone
    
End Sub