设置边框为实线

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

 

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

posted @ 2020-04-25 14:15  TryMyBest!  阅读(681)  评论(0)  编辑  收藏  举报