Ist es möglich, ALLE benutzerdefinierten / erstellten Zellenstile in einer Arbeitsmappe zu löschen? Belassen Sie einfach die Standardstile.
Ohne sie alle einzeln löschen zu müssen
Ist es möglich, ALLE benutzerdefinierten / erstellten Zellenstile in einer Arbeitsmappe zu löschen? Belassen Sie einfach die Standardstile.
Ohne sie alle einzeln löschen zu müssen
Antworten:
Probieren Sie dieses kleine VBA-Makro aus:
Dies behebt das Problem "Builtin vs Custom ". Beachten Sie, dass wir die Schleife rückwärts ausführen , um eine Beschädigung des Schleifenindex zu vermeiden.
quelle
INDEX
Versuchen Sie Folgendes, um einfach alle zu entfernen, ohne sie zu verwenden :quelle
Ok, das war nicht so schwer, wie ich zuerst dachte.
Etwas chaotisch, da ich vba nicht oft benutze; Dieser Code wird jedoch nur auf die Standardstile zurückgesetzt:
quelle
Styles
anstatt meine Schleife über einen Index.j
= 1 und dann SieDelete(1)
. (2) bewegt sich zu (1),j
erhöht sich jedoch zu 2, so dass der nächste SchrittDelete(2)
der alte (3) ist.For Each
ist eine Aufzählungsschleife, daher wird dieselbe Logik verwendet. Es gab irgendwo eine gute Erklärung für StackOverflow - ich kann sie nicht finden, aber diese erklären auch: stackoverflow.com/questions/18858718/… , stackoverflow.com/questions/45585393/vba-loop-and-delete-issue