Eliminar TODOS los estilos de celda personalizados EXCEL

Question

¿Es posible eliminar TODOS los estilos de celda personalizados/creados en un libro de trabajo? Simplemente dejando los estilos predeterminados.

Sin tener que borrarlos todos uno por uno

Answer 1

Pruebe esta pequeña macro de VBA:

Sub StyleKiller()
    Dim N As Long, i As Long

    With ActiveWorkbook
        N = .Styles.Count
        For i = N To 1 Step -1
            If Not .Styles(i).BuiltIn Then .Styles(i).Delete
        Next i
    End With
End Sub

Esto resuelve elIncorporadovsCostumbreasunto. Tenga en cuenta que ejecutamos el buclehacia atráspara evitar dañar el índice del bucle.

Answer 2

Para simplemente eliminar todo sin usar INDEX, intente lo siguiente:

Sub StyleKiller()
    Dim st As Style
    On Error Resume Next
    For Each st In ActiveWorkbook.Styles
      If Not st.BuiltIn Then
        st.Delete
      End If
    Next
    On Error GoTo 0
End Sub

Answer 3

Todo lo anterior funciona, pero las PC de nuestro trabajo están bastante anticuadas, por lo que la macro seguía fallando. Por alguna razón, muchos archivos tienen cientos de estilos de celda, lo que ralentiza los documentos.

Mi solución resultó ser fácil y rápida.

Seleccione todas las hojas de trabajo de su libro de trabajo y cópielas en un libro nuevo. Esto mantiene todos los enlaces y formatos externos y todo, excepto los estilos, no se copia.

Guarde su nuevo libro sobre el anterior (primero cierre el anterior).

Answer 4

La cuestión de los estilos personalizados también se analiza enhttp://support.microsoft.com/kb/213904

Descubrí que instalar la "Herramienta XLStyles" gratuita de MS Store como se sugiere en el artículo de KB era una forma muy conveniente de eliminar los estilos personalizados.