Excel表设置为细框线

Sub 设置为细框线()边框类型数组 = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, _xlEdgeRight, xlInsideVertical, xlInsideHorizontal)'遍历已使用区域的每个单元格For Each 单元格 In ActiveSheet.UsedRangeFor Each 边框类型 In 边框类型数组If 单元格.Borders(边框类型).LineStyle <> xlNone Then 单元格.Borders(边框类型).Weight = xlThinNextNext
End Sub