EXCEL Macro Cancella Righe e Colonne vuote e formattazione

[Dylan666]

Ciao a tutti, scrivo qui dopo una rapida ricerca su Google che però, mescolata alle mia scarse abilità in Excel non mi ha portato a una risposta completa.
Mi serve di base una Macro di cancellazione righe e colonne vuote e sono arrivato a questa:
https://www.ablebits.com/office-addins- ... nes-excel/

Mi serve però di aggiungere la cancellazione della formattazione (quindi via i colori dalla celle) e resettare allo standard altezza di righe e colonne.

Prego chi vorrà aiutarmi di lasciarmi un codice magari anche meno sintetico ma più facile da capire da chi, come me, non usa Excel e VBA tutti i giorni.

Grazie anticipatamente

[Anthony47]

Quindi tu hai gia' la macro che elimina le righe che ti serve cancellare...
Aggiungi questa macro:

Codice: Seleziona tutto

Sub Completa()
    Cells.Interior.ColorIndex = xlNone
    Cells.Font.ColorIndex = xlNone
    Cells.UseStandardHeight = True
    Cells.UseStandardWidth = True
End Sub

Anche se e' molto sintetica penso che non si faccia difficolta' a capire il significato

Poi in fondo alla macro di EliminaRighe, subito prima di End Sub, inserisci

Codice: Seleziona tutto

Call Completa


Oppure copia le quattro righe esecutive dal mio codice e inseriscile in coda alla tua macro.

Ciao

[Dylan666]

Come ciclo in generale sia di cancellazione rige/colonne vuote che di eliminazione della formattazione (aggiunto grazie a te) ho trovato questo che è molto veloce:
https://www.exceltip.com/vba/delete-emp ... h-vba.html

Codice: Seleziona tutto

Sub Delete_All_Empty()
    Application.ScreenUpdating = False
Dim R As Integer
R = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
Do Until R = 0
    Cells.ClearFormats
    Cells.UseStandardHeight = True
    Cells.UseStandardWidth = True
If WorksheetFunction.CountA(Rows(R)) = 0 Then
Rows(R).Delete
Else
End If
R = R - 1
Loop

Dim C As Integer
C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
Do Until C = 0
If WorksheetFunction.CountA(Columns(C)) = 0 Then
Columns(C).Delete
Else
End If
C = C - 1
Loop
    Application.ScreenUpdating = True
End Sub


Che ne pensi?

[Anthony47]

Che ne pensi?

Ne penso che se funziona ed e' pure veloce allora e' tutto ok
Comunque le tre istruzioni "di ripristino" e' meglio che le porti fuori dal ciclo Do Until R = 0 / Loop. Esse infatti agiscono sull'intero foglio, quindi basta eseguirle una sola volta; ad esempio mettile subito prima di End Sub

Ciao