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