Sub 罫線を引く①()

    Range("B2:C3").Borders.LineStyle = xlContinuous
    
End Sub