極細線

10年くらい点線だと思ってた（笑）

.Range("A1:H20").Borders.LineStyle = xlContinuous
.Range("A2:H20").Borders(xlInsideHorizontal).Weight = xlHairline

以上