Sub 罫線_二点鎖線_を引く()

    With Range("B2:C3")
        .Borders(xlEdgeTop).LineStyle = xlDashDotDot '上
        .Borders(xlEdgeBottom).LineStyle = xlDashDotDot '下
        .Borders(xlEdgeRight).LineStyle = xlDashDotDot '右
        .Borders(xlEdgeLeft).LineStyle = xlDashDotDot '左
        .Borders(xlInsideVertical).LineStyle = xlDashDotDot '中の縦
        .Borders(xlInsideHorizontal).LineStyle = xlDashDotDot '中の横
    End With
    
End Sub