Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL Macro Cancella Righe e Colonne vuote e formattazione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL Macro Cancella Righe e Colonne vuote e formattazione

Postdi Dylan666 » 06/03/19 12:16

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
Avatar utente
Dylan666
Moderatore
 
Post: 38066
Iscritto il: 18/11/03 16:46

Sponsor
 

Re: EXCEL Macro Cancella Righe e Colonne vuote e formattazio

Postdi Anthony47 » 06/03/19 12:55

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16511
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Macro Cancella Righe e Colonne vuote e formattazio

Postdi Dylan666 » 06/03/19 13:26

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?
Avatar utente
Dylan666
Moderatore
 
Post: 38066
Iscritto il: 18/11/03 16:46

Re: EXCEL Macro Cancella Righe e Colonne vuote e formattazio

Postdi Anthony47 » 06/03/19 13:41

Che ne pensi?
Ne penso che se funziona ed e' pure veloce allora e' tutto ok :D :D
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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16511
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL Macro Cancella Righe e Colonne vuote e formattazione":

Excel
Autore: fra.dibia
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: wallace&gromit e 28 ospiti