Cum să verificați rapid dacă o foaie este goală în Excel?

Dacă există câteva foi goale într-un registru de lucru uriaș, cum puteți verifica rapid dacă o coală este goală în registrul de lucru, apoi le puteți șterge? În Excel, există o funcție încorporată pentru a determina dacă o foaie este goală sau nu, dar aici vă introduc un cod VBA pentru a verifica dacă o foaie este goală.

Verificați dacă o foaie este goală cu VBA

Verificați dacă o foaie este goală cu VBA

Pentru a verifica dacă o foaie este goală, puteți utiliza codul macro de mai jos pentru a determina rapid dacă o foaie este goală.

1. Activați o foaie pe care doriți să o verificați dacă este goală, apăsați Alt + F11 tasta pentru a deschide Microsoft Visual Basic pentru aplicații fereastră și faceți clic pe Insera > Module pentru a crea un nou Module.

2. În scriptul gol, lipiți sub acesta codul macro. Vedeți captura de ecran:

VBA: Verificați dacă o foaie este goală

Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
        MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
    Else
        MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
    End If
End Sub

3. Salvați codul și apăsați F5 pentru a rula codul și va apărea o casetă de dialog pentru a vă reaminti că foaia este goală sau nu.

Cele mai bune instrumente de productivitate de birou

	Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
	Super căutare: VLookup cu mai multe criterii  |   VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
	Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
	Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
	Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar   |  Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule   |  Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
	Top 15 seturi de instrumente:  12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Citeşte mai mult ... Descărcare gratuită...

---

Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită...