excel - sobrantes - Demasiados diferentes formatos de celda

limpiar el exceso de formato de celda excel 2010

Question

1. Tengo un archivo masivo con 10 hojas recreadas desde cero, 12 hojas actualizadas, 5 hojas cargadas con datos sin formato y 7 hojas que las macros utilizan para el informe.
2. Recientemente, agregué una nueva hoja y me encuentro con el problema de Excel "Demasiados formatos diferentes de celda" .

lo que he intentado

He leído algunos de los resultados de búsqueda de Google y dicen que debería simplificar el formato, pero ni siquiera sé cómo obtuve hasta 4000 formatos de celda distintos, y menos cuánto uso, para eliminar algunos.

También aparece algunas veces el archivo se ejecuta, pero no todo, hasta que aparece, y luego sucede cada vez que se ejecuta. Dado que la macro está haciendo gran parte del trabajo, incluida la creación de las 10 hojas desde cero, no estoy seguro de qué hacer.

Alguien sabe

• de una Macro que podría ejecutar para obtener una lista de todos los formatos de celda y cuántas celdas los están usando?
• de un programa en el que confían para ayudar a eliminar el exceso de formatos de celda?

Gracias

Answer 1

SpreadsheetGear for .NET fusionará formatos no únicos que pueden ayudar con su situación.

Puede descargar la versión de prueba gratuita aquí si desea ver si ayuda. Simplemente cargue el libro de trabajo en la aplicación "SpreadsheetGear 2009 for Windows" que se instala con el software de evaluación y luego guarde el libro de trabajo.

Si realmente tiene muchos formatos únicos, tendrá que simplificar. Cada combinación única de color de fuente / celda (Interior), formato numérico, alineación horizontal y vertical, bordes, nivel de sangría y probablemente algunas cosas en las que no estoy pensando generarán una entrada única en la tabla.

Otra opción es cambiar a Excel 2007 que tiene el límite de formatos de celda únicos aumentados de 4,000 a 64K.

Descargo de responsabilidad: soy dueño de SpreadsheetGear LLC

Answer 2

He visto este problema antes Es posible recrear para probar lo que estoy a punto de decir. Es una especie de trampa 22, pero cuando tienes una hoja que tiene el problema de "Demasiados formatos", abre una hoja completamente nueva y copia una celda de la hoja de demasiados formatos y simplemente pégala en el nuevo libro de trabajo. Este libro de trabajo ahora estará ''Infectado'' por así decirlo y también tendrá el error de demasiados formatos. Parece que muchos de los datos de formato vienen con ese engrudo a menos que use un engrudo especial para restringirlo.

¿Cómo hacer las cosas mejor? Bueno, una solución alternativa es usar la función Guardar como HTML. Ten paciencia conmigo, aunque esto funciona. Estoy hablando de 2003 aquí, no sé lo que sucederá en 2007, tal vez este error haya sido resuelto. Entonces ... Guarde como HTML y cierre Excel. Cargue una nueva sesión y cárguela para asegurarse de que no ejecuta ninguna macro y luego, una vez cargada, la guarda como una hoja de cálculo.

Cuando cierre y vuelva a abrir esta nueva hoja de cálculo, sus demasiados problemas de Formatos deberían desaparecer.

Answer 3

Se han solucionado los errores que conducen al mensaje de error "Demasiados formatos de celda" en Excel 2007+: http://sergeig888.wordpress.com/2011/05/06/msft-released-hot-fix-for-excel-2007 -custom-styles-duplication / Tenga en cuenta que las correcciones de errores no eliminarán los estilos preexistentes relacionados con la corrupción de archivos. Las herramientas basadas en Open XML (disponibles de forma gratuita) son la única opción que puede eliminar elementos inaccesibles para las herramientas basadas en el modelo de objetos de Excel: por ejemplo, estilos incorrectos que se disfrazan como estilos incorporados, ocultos, etc. La limpieza basada en Open XML significa 100% de estilos relacionados con archivos libres de corrupción.

Answer 4

Es un error en Excel que afecta a todas las versiones lanzadas.

El problema se puede arreglar usando esta herramienta.

Funciona con archivos XLS y XLSX .

Answer 5

Si puede abrir el archivo, pruebe> editar> borrar> Formatos.

Resalta la hoja antes de tocar los formatos que funcionó para mí.

asegúrese de hacer una copia de EXCEL antes de hacer esto, solo en caso de que falta algo, puede cruzar la ref en contra del documento anterior.

Answer 6

Si le da un error "demasiados formatos de celda", guarde el documento de inmediato. Cambie el nombre del documento a algún otro nombre por el momento. Abra el documento y guárdelo con el mismo nombre que antes. Ahora cierre el documento y ábralo, ya no mostraría ese error. A veces se acaba de ir con un simple guardar también, pero es un poco raro para mí!

Answer 7

El problema que describes me causó a mí (y a un compañero de trabajo) la pérdida de muchas horas de productividad al usar Excel 2010. El siguiente código / macro de VBA me ayudó a eliminar un archivo .xlsm del uso de 3540 estilos hasta el 34.

'' Description:
''    Borrowed largely from http://www.jkp-ads.com/Articles/styles06.asp

Option Explicit

'' Description:
''    This is the "driver" for the entire module.
Public Sub DropUnusedStyles()

    Dim styleObj As Style
    Dim rngCell As Range
    Dim wb As Workbook
    Dim wsh As Worksheet
    Dim str As String
    Dim iStyleCount As Long
    Dim dict As New Scripting.Dictionary    '' <- from Tools / References... / "Microsoft Scripting Runtime"

    '' wb := workbook of interest.  Choose one of the following
    '' Set wb = ThisWorkbook '' choose this module''s workbook
    Set wb = ActiveWorkbook '' the active workbook in excel


    Debug.Print "BEGINNING # of styles in workbook: " & wb.Styles.Count
    MsgBox "BEGINNING # of styles in workbook: " & wb.Styles.Count

    '' dict := list of styles
    For Each styleObj In wb.Styles
        str = styleObj.NameLocal
        iStyleCount = iStyleCount + 1
        Call dict.Add(str, 0)    '' First time:  adds keys
    Next styleObj
    Debug.Print "  dictionary now has " & dict.Count & " entries."
    '' Status, dictionary has styles (key) which are known to workbook


    '' Traverse each visible worksheet and increment count each style occurrence
    For Each wsh In wb.Worksheets
        If wsh.Visible Then
            For Each rngCell In wsh.UsedRange.Cells
                str = rngCell.Style
                dict.Item(str) = dict.Item(str) + 1     '' This time:  counts occurrences
            Next rngCell
        End If
    Next wsh
    '' Status, dictionary styles (key) has cell occurrence count (item)


    '' Try to delete unused styles
    Dim aKey As Variant
    On Error Resume Next    '' wb.Styles(aKey).Delete may throw error

    For Each aKey In dict.Keys

        '' display count & stylename
        ''    e.g. "24   Normal"
        Debug.Print dict.Item(aKey) & vbTab & aKey

        If dict.Item(aKey) = 0 Then
            '' Occurrence count (Item) indicates this style is not used
            Call wb.Styles(aKey).Delete
            If Err.Number <> 0 Then
                Debug.Print vbTab & "^-- failed to delete"
                Err.Clear
            End If
            Call dict.Remove(aKey)
        End If

    Next aKey

    Debug.Print "ENDING # of style in workbook: " & wb.Styles.Count
    MsgBox "ENDING # of style in workbook: " & wb.Styles.Count

End Sub

Answer 8

Los "formatos de celda" son complicados. Las células realmente no tienen un "formato". Tienen una fuente (que a su vez tiene un nombre y un tamaño), un NumberFormat, Height, Width, Orientation, etc.

Entonces debes definir lo que quieres decir con "formato".

A continuación se muestra el código para obtener el nombre y el tamaño de la fuente. Puede sustituir cualquier atributo que desee.

El siguiente código supone que ha creado una Hoja de trabajo llamada "Formatos" en el libro de trabajo. Después de ejecutar la macro, los nombres de las fuentes y los tamaños se mostrarán en esa hoja de trabajo.

Public Sub GetFormats()

    Dim CurrentSheet As Integer
    Dim UsedRange As Range
    Dim CurrentCell As Range
    Dim rw As Long

    Sheets("Formats").Cells.ClearContents
    rw = 1
    For CurrentSheet = 1 To Sheets.Count
        Set UsedRange = Range(Sheets(CurrentSheet).Range("A1"), Sheets(CurrentSheet).Range("A1").SpecialCells(xlLastCell))
        For Each CurrentCell In UsedRange
            FontUsed = CurrentCell.Font.Name + ":" + CStr(CurrentCell.Font.Size)
            If Sheets("Formats").Cells.Find(FontUsed) Is Nothing Then
                Sheets("Formats").Cells(rw, 1).Value = FontUsed
                rw = rw + 1
            End If
        Next
    Next CurrentSheet
End Sub

Answer 9

Una solución puede ser usar las utilidades ASAP . En la sección de la hoja hay una opción para remove all unused styles . Entonces, debe cerrar el libro de trabajo y volver a abrirlo, creo.

Answer 10

Una solución simple en caso de que sea un archivo pequeño:

Solo copie todo y péguelo en Word. Detectará el contenido como tablas. Luego, seleccione todas las columnas ( NO la tabla completa mediante el signo de la cruz en la esquina superior izquierda) y póngalas en una nueva hoja .xls, y solo tendrá los valores claros.

Answer 11

Mucha gente parece encontrarse con este problema.

En la mayoría de los casos, el problema está relacionado con la cantidad excesiva de estilos no utilizados y, a menudo, corruptos, y no tanto con el recuento total de los combos únicos de celdas de formato de celda.

Escribí una utilidad para arreglar archivos XL2007 OOXML que pueden guardarse en XL2003. Aquí está el enlace a la publicación del blog:

• Requiere .Net3.5 y MS Excel 2007.
• Arreglará los archivos xlsx o xlsm.
• La publicación tiene un archivo Léame para ir con la aplicación.

No es necesario correr el riesgo de corromper aún más su archivo al utilizar Open Office como se sugiere en otros foros.

Answer 12

Tuve este problema, encontré que la manera más fácil de borrarlo era usar este complemento de Excel . Parece ser la respuesta "oficial" de la página de Microsoft sobre el problema .

Para las personas que están tan confundidas como yo con los archivos .xlam, después de descargarlo, haz esto en Excel:

1. Haga clic en Archivo <Opciones <Complementos.
2. En la opción Administrar, haga clic en Ir.
3. En la ventana Complementos, haga clic en Examinar, busque la ubicación donde se guarda el archivo XLAM, resáltelo y haga clic en Aceptar.
4. Habilite el nuevo complemento en la ventana Complementos y haga clic en Aceptar.
5. En la barra de cinta de la pantalla de inicio ahora debería haber una sección "Eliminar estilos", que consiste en un botón que muestra la cantidad de estilos en el libro de trabajo (probablemente miles si tiene este problema).
6. Haga clic en el botón de la cinta y eliminará todos los formatos duplicados.

Si no lo ves, verifica que se muestre correctamente en la cinta. Haga clic derecho en la cinta y diga "Personalizar cinta". Luego haga clic en Complementos. En complementos de aplicaciones activas, debería ver "Eliminar estilos adicionales".

Answer 13

Sé que arriba hay algunos métodos interesantes para resolver este error.

Pero haría un resumen de algunos trucos básicos para corregir demasiados errores de formato de celda, pero creo que es muy efectivo, especialmente para los nuevos bies.

1. Copie la hoja de trabajo en un archivo nuevo, es efectivo pero toma tiempos
2. Eliminar intervalos que no sabes lo que son
3. Vuelva a formatear las hojas de trabajo para que tenga un formato mínimo establecido
4. Borrar todo el formato

Espero que te gusten estos consejos básicos

Mi publicación detallada sobre el error Cómo corregir demasiados formatos de celda diferentes

Answer 14

Bastante usé todas las respuestas aquí, pero el mensaje de error se quedó.

después de leer esta página de soporte de microsoft ( https://support.microsoft.com/en-us/kb/213904 ), llegué a XLStylesTool.exe.

Pero, nuevamente, no tuve suerte (porque lo usé incorrectamente).

Tengo Windows siete, por lo que la versión de Windows 8/10 es un no ir.

Leí los comentarios de la página de descarga (porque no está escrito en las informaciones de descarga) aquí https://sergeig888.wordpress.com/2011/03/21/net4-0-version-of-the-xlstylestool-is-now -disponible/

descubrí que necesito la versión .NET4.0 para hacerlo funcionar bajo win7 (esos dummies simplemente no pueden llamarlo versión win7 ???)

enlace de descarga: https://skydrive.live.com/redir?resid=53E1D37F76F69444!900&authkey=!AH5oeGVaWlMsFHA&ithint=file%2c.zip

Mi siguiente problema fue que NO funciona en * .XLS, así que abrí Excel y lo guardé como * .XLSM, lo cual funciona.

Después de eso simplemente haga clic en ''Obtener archivo de Excel'' y ''Archivo de proceso'' (he marcado ''realizar cambios y abrir en excel'', y en excel ''guardar como'' ''* .xls''. Cerrar Excel, volver a abrir archivo, TRABAJA (sin molestar) advertencia) !!!

Answer 15

Esto eliminará todos los estilos, EXCEPTO para los estilos predeterminados (normal, explicativo, 20% Accent1, etc.). Incluyendo los estilos que el usuario ha creado, pero es una forma rápida y sucia de limpiar un libro:

Sub NewNukeStyles()
Dim tempstyle As Style

For Each tempstyle In ActiveWorkbook.Styles

 If tempstyle.BuiltIn = False Then
    If tempstyle.Locked = True Then ''not sure what this is
       tempstyle.Delete
    End If
End If

Next tempstyle

End Sub ''NukeStyles

Me encantaría saber a qué se refiere la propiedad tempstyle.locked aparte de "un valor booleano que indica si el objeto está bloqueado".