Acest tutorial vă va învăța cum să ștergeți sau să ștergeți o foaie de lucru folosind VBA.
Ștergeți foaia de lucru
Utilizați comanda de ștergere pentru a șterge o foaie de lucru.
Ștergeți foaia de lucru după nume
1 | Foi de calcul („Foaie1”). Ștergeți |
Ștergeți foaia de lucru după numărul de index
Acest cod șterge prima foaie de lucru din registrul de lucru:
1 | Foi (1). Ștergeți |
Acest cod șterge ultima foaie de lucru din registrul de lucru:
1 | Foi (Sheets.Count). Ștergeți |
Ștergeți foaia de lucru fără prompt
Când încercați să ștergeți o foaie de lucru, Excel vă va cere să confirmați acțiunea:
Puteți dezactiva aceste solicitări (alerte) comutând DisplayAlerts:
123 | Application.DisplayAlerts = FalsFoi de calcul („Foaie1”). ȘtergețiApplication.DisplayAlerts = Adevărat |
Ștergeți foaia dacă există
Dacă încercați să ștergeți o foaie de lucru care nu există, VBA va genera o eroare. Cu On Error Resume Next, puteți spune VBA să șteargă o foaie dacă există, altfel treceți la următoarea linie de cod:
123 | La eroare Reluați în continuareFoi de calcul („Foaie1”). ȘtergețiLa eroare GoTo 0 |
De asemenea, puteți utiliza funcția RangeExists pentru a verifica dacă există o foaie și, în caz afirmativ, ștergeți-o .:
123 | Dacă RangeExists („Sheet1”) atunciFoi de calcul („Foaie1”). ȘtergețiEnd If |
Ștergeți foaia
Acest cod va șterge o întreagă coală de conținut, formate și orice altceva:
1 | Foi („Sheet1”). Celule.Clar |
Ștergeți conținutul foii
Acest cod va șterge conținutul întregii foi. Va lăsa formatarea, comentariile și toate celelalte:
1 | Foi („Sheet1”). Cells.ClearContents |
Ștergeți foaia folosită
Exemplele de mai sus vor șterge TOATE celulele dintr-o foaie de lucru. Acest lucru poate consuma mult timp în coli mari. Dacă utilizați în schimb UsedRange, VBA va șterge doar celulele „utilizate” care conțin valori, formate etc.
1 | Foi („Sheet1”). UsedRange.Clear |