设置边框为实线

With Range("A4:B10").Borders
.LineStyle = xlContinuous
.ColorIndex = 0
End With

http://www.360doc.com/content/17/0918/06/30583536_688007876.shtml