Sub 批量删除单元格样式() EX: For i = 1 To ActiveWorkbook.Styles.Count On Error Resume Next ActiveWorkbook.Styles(i).Delete Next i If ActiveWorkbook.Styles.Count <> 1 Then GoTo EX End Sub
转载于:https://my.oschina.net/u/2446847/blog/1584471
Sub 批量删除单元格样式() EX: For i = 1 To ActiveWorkbook.Styles.Count On Error Resume Next ActiveWorkbook.Styles(i).Delete Next i If ActiveWorkbook.Styles.Count <> 1 Then GoTo EX End Sub
转载于:https://my.oschina.net/u/2446847/blog/1584471