Excel表設置為細框線
Sub 設置為細框線()
邊框類型數組 = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, _
xlEdgeRight, xlInsideVertical, xlInsideHorizontal)
'遍歷已使用區域的每個單元格
For Each 單元格 In ActiveSheet.UsedRange
For Each 邊框類型 In 邊框類型數組
If 單元格.Borders(邊框類型).LineStyle <> xlNone Then 單元格.Borders(邊框類型).Weight = xlThin
Next
Next
End Sub

浙公網安備 33010602011771號