设置边框为实线
With Range("A4:B10").Borders
.LineStyle = xlContinuous
.ColorIndex = 0
End With
http://www.360doc.com/content/17/0918/06/30583536_688007876.shtml
With Range("A4:B10").Borders
.LineStyle = xlContinuous
.ColorIndex = 0
End With
http://www.360doc.com/content/17/0918/06/30583536_688007876.shtml