20行毎に罫線を引く

---

20行毎に罫線を引く

20行毎に罫線で横に線を引くには、以下の様にします。

Sub Sample47()
Dim I As Integer
For I = 20 To 1000 Step 20
　Range("A" & I).EntireRow.Borders(xlEdgeBottom).Weight = xlMedium
Next I
End Sub

エクセルＶＢＡテクニック集トップ

---