Come cancellare un intero foglio usando vba?

Per cancellare un intero foglio utilizzando il codice VBA in una volta sola è necessario utilizzare due cose, prima il metodo CLEAR e poi CELLS per fare riferimento a tutte le celle in un foglio di lavoro.

Cancella foglio attivo

Diciamo che se vuoi cancellare tutto il contenuto del foglio di attivazione, il codice sarebbe come sotto.

 Cells.Clear

Quando esegui questo codice, verrà cancellato tutto da tutte le celle del foglio attivo, come ho già detto abbiamo usato clear per fare riferimento all’intero foglio di lavoro e clear per cancellarlo.

Cancella un foglio specifico

C’è una cosa che dovresti notare: per cancellare un foglio, quel foglio deve essere abilitato. Quindi diciamo che vuoi cancellare il “Foglio1”, il codice sarebbe come:

 Sheets("Sheet1").Activate Cells.Clear

In questo codice, la prima attiva “Foglio1” e la seconda riga cancella tutto.

Altre cose da chiarire

Puoi anche utilizzare i metodi seguenti per cancellare cose diverse.

 Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline

Elimina un foglio da una cartella di lavoro specifica

Il codice seguente può fare riferimento alla cartella di lavoro “Book1” e cancellare il foglio “Sheet1”. Assicurati però che la cartella di lavoro sia aperta al momento dell’esecuzione di questo codice .

 Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear

Questo codice attiva innanzitutto il “Foglio1” del libro e lo cancella.

Elimina un foglio da una cartella di lavoro chiusa

E nel codice seguente, abbiamo fatto riferimento al “Foglio1” del “file di esempio” della cartella di lavoro, archiviato in una posizione specifica.

 Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub