Range("J1")
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
这是上下左右的默认线
Range("J1").Borders.LineStyle = xlContinuous
这是全部边框的默认线
Range换成cells(行,列)也可以