Sub 罫線_極細線_を引く()

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