Etc./Excel VBA7 Excel VBA : Delete Style (불필요한 스타일 삭제) Sub Style_Delete() Dim n As Integer, yn As Byte On Error Resume Next For n = ActiveWorkbook.Styles.Count To 1 Step -1 If ActiveWorkbook.Styles(n).Name = "Normal" Then Else ActiveWorkbook.Styles(n).Delete End If Next End Sub 2013. 11. 25. 이전 1 2 다음 728x90 반응형