各位好，这里有一段关于设置单元格的代码，他们设置边框的内容是一样的，怎么改能更简单些阿，谢谢了~！ Range("B4:C12,E4:F10").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = 22 End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = 22 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = 22 End With

我也想知道这个代码，各位高手大侠们，有谁知道的，赐教一下吧！

With Range("B4:C12,E4:F10").Borders(xlEdgeLeft).LineStyle = xlDouble.Borders(xlEdgeLeft).ColorIndex = 22.Borders(xlEdgeBottom).LineStyle = xlDouble.Borders(xlEdgeBottom).ColorIndex = 22.Borders(xlEdgeRight).LineStyle = xlDouble.Borders(xlEdgeRight).ColorIndex = 22End With

谢谢3楼