Mulți utilizatori Excel ascund rânduri și coloane atunci când au unele date de care nu au nevoie să fie vizibile.
Este o modalitate de a păstra vizibile doar datele utile și, în același timp, de a nu șterge datele pe care nu trebuie să le vedeți.
Și, dacă aveți o mulțime de astfel de rânduri / coloane ascunse, ar putea fi dificil să găsiți și să ștergeți aceste rânduri și coloane ascunse (în cazul în care nu aveți nevoie de ele).
În acest tutorial, vă voi arăta câteva moduri de a le face cu ușurință ștergeți rândurile și coloanele ascunse în Excel.
Există o metodă încorporată care vă permite să ștergeți toate rândurile și coloanele ascunse dintr-o singură dată și puteți utiliza, de asemenea, codurile macro VBA în cazul în care doriți să aplicați acest lucru pentru gama noastră de celule selectate.
Asadar, haideti sa începem!
Ștergeți toate rândurile și coloanele ascunse din Excel
Dacă doriți să ștergeți toate rândurile și coloanele ascunse dintr-un întreg registru de lucru în Excel, puteți utiliza metoda prezentată aici.
Amintiți-vă că va elimina aceste rânduri și coloane ascunse din întregul registru de lucru și nu numai din foaia activă.
Mai jos sunt pașii pentru a șterge toate rândurile și coloanele ascunse din registrul de lucru în Excel:
- Faceți clic pe opțiunea Fișier
- În opțiunile din stânga, dați clic pe „Informații”
- Faceți clic pe opțiunea „Căutați probleme”
- Faceți clic pe opțiunea „Inspectare document”. Aceasta va deschide caseta de dialog Document Inspector
- În caseta de dialog „Document Inspector”, faceți clic pe butonul „Inspect”. Aceasta va inspecta întregul registru de lucru și vă va oferi informații despre registrul de lucru
- Derulați în jos până la opțiunea „Rânduri și coloane ascunse”. Veți vedea că arată numărul total de rânduri și coloane ascunse pe care le-a găsit în registrul de lucru.
- Faceți clic pe butonul „Elimină tot”
Pașii de mai sus ar șterge toate rândurile și coloanele ascunse din registrul de lucru.
Rețineți că trebuie să salvați acest registru de lucru înainte de a rula opțiunea Document Inspector. În cazul în care registrul de lucru nu este deja salvat, Excel vă va obliga mai întâi să îl salvați. De asemenea, vă va afișa un mesaj de avertizare care solicită salvarea fișierului o dată, deoarece datele modificate prin acești pași nu pot fi recuperate.
În cazul în care nu există rânduri și coloane ascunse, veți vedea o bifă verde înainte de opțiunea Ascuns și Rânduri și Coloane (în caseta de dialog Inspector document).
În afară de rândurile și coloanele ascunse, caseta de dialog Inspector document vă oferă, de asemenea, o mulțime de alte informații utile - cum ar fi numărul de comentarii, sau foi de lucru ascunse sau documente încorporate etc.
Notă: Nu puteți anula modificările făcute de inspectorul de documente. Deci, asigurați-vă că aveți o copie de rezervă a datelor originale (în cazul în care este posibil să aveți nevoie de ele în viitor)Aceasta este o metodă excelentă dacă doriți să ștergeți toate coloanele și rândurile ascunse pentru întregul registru de lucru.
Dar în cazul în care doriți să îl ștergeți doar într-o anumită foaie sau într-un anumit interval, atunci nu puteți utiliza această opțiune.
În acest caz, puteți utiliza metoda VBA prezentată în continuare.
Ștergeți rândurile și coloanele ascunse folosind VBA
Dacă aveți doar câteva rânduri și coloane ascunse, este posibil să le ascundeți manual și apoi să le ștergeți.
Dar dacă este ceva ce trebuie să faceți destul de des sau dacă aveți un set mare de date cu un număr mare de rânduri / coloane ascunse, cel mai bine este să utilizați coduri macro VBA pentru a automatiza acest proces.
Să vedem diferite scenarii în care puteți utiliza VBA pentru a șterge aceste rânduri și coloane ascunse.
Dintr-o întreagă foaie de lucru (gama utilizată)
În timp ce pot face ca codul VBA să verifice întreaga foaie de lucru începând cu ultimul număr de rând și ultimul număr de coloană din foaia de lucru, aceasta ar fi o risipă de resurse.
O metodă mai bună ar fi să vedeți care este intervalul utilizat și apoi să verificați numai intervalul utilizat pentru toate rândurile și coloanele ascunse.
Mai jos este codul VBA care ar șterge toate rândurile ascunse din intervalul utilizat:
Sub DeleteHiddenRows () Dim sht Ca foaie de lucru Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row For i = LastRow To 1 Step -1 If Rows (i) .Hidden = True Apoi Rânduri (i). Întreg Rând. Ștergeți Următorul sfârșit Sub
Codul VBA de mai sus găsește mai întâi ultimul număr de rând din intervalul utilizat și atribuie acel număr de rând variabilei „LastRow”.
Acest ultim număr de rând este apoi utilizat într-o buclă For Next, unde începe de la ultimul rând și verifică dacă este ascuns sau nu.
În cazul în care este ascuns, întregul rând este șters. Și în cazul în care nu este ascuns, codul părăsește acel rând așa cum este și se mută pe rândul de deasupra acestuia. Această buclă verifică toate rândurile și șterge orice rând ascuns pe care îl întâlnește în proces.
În cazul în care doriți să ștergeți toate coloanele ascunse din intervalul utilizat, utilizați codul VBA de mai jos:
Sub DeleteHiddenColumns () Dim sht Ca foaie de lucru Dim LastCol as Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count) .Column For i = LastCol To 1 Step -1 If Coloane (i). = Adevărat apoi Coloane (i). Întreg Coloană. Ștergeți Următorul sfârșit Sub
Acest lucru funcționează din nou în același mod, în care, în loc de rânduri, verificăm coloane.
Deci, află ultimul număr de coloană din intervalul utilizat, îl atribuie unei variabile și apoi folosește bucla pentru a trece de la ultima coloană la prima coloană și a șterge toate coloanele ascunse din proces.
Și în cazul în care doriți să aveți un cod care să șteargă toate rândurile ascunse, precum și coloanele ascunse, utilizați codul VBA de mai jos:
Sub DeleteHiddenRowsColumns () Dim sht Ca foaie de lucru Dim LastRow ca Integer Dim LastCol as Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns (sht.Used. Columns.Count) .Column For i = LastRow To 1 Step -1 If Rows (i) .Hidden = True Then Rows (i) .EntireRow.Delete Next For i = LastCol To 1 Step -1 If Columns (i) .Hidden = Adevărat apoi Coloane (i) .EntireColumn.Stergeți Next End Sub
Acesta este doar codul combinat atât pentru rânduri, cât și pentru coloane și funcționează în același mod.
În loc de o buclă, aceasta folosește două bucle separate, unde trece mai întâi prin toate rândurile și apoi trece prin toate coloanele. Și în acest proces, șterge toate rândurile și coloanele ascunse pe care le întâlnește.
Rețineți că trebuie să plasați acest cod VBA într-un modul obișnuit în Editorul Visual Basic. Apoi puteți rula codul direct din Editorul VB, utilizând caseta de dialog macro sau adăugând această macro la bara de instrumente de acces rapid.
Dacă este ceva ce trebuie să faceți destul de des, puteți adăuga și acest cod în registrul personal de lucru macro, astfel încât să aveți acces la acesta din toate registrele de lucru din sistemul dvs.
Dintr-o gamă specifică de celule
În cazul în care aveți un anumit interval din care doriți să eliminați rândurile și coloanele ascunse, trebuie să specificați acest lucru în cadrul codului.
Acest lucru asigură faptul că codul circulă numai prin rândurile și coloanele din intervalul specificat și lasă celelalte zone din foaia de lucru neatinsă
Sub codul VBA care ar face acest lucru:
Sub DeleteHiddenRowsColumns () Dim sht Ca foaie de lucru Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Range ("A1: K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows (Rng. Rows.Count) .Row ColCount = Rng.Columns.Count LastCol = Rng.Columns (Rng.Columns.Count) .Column For i = LastRow To LastRow - RowCount Step -1 If Rows (i) .Hidden = True Then Rows ( i) .EntireRow.Delete Next Pentru j = LastCol To LastCol - ColCount Pasul -1 Dacă Coloane (j) .Hidden = Adevărat Atunci Coloane (j) .EntireColumn.Delete Next End Sub
În codul de mai sus, am specificat intervalul ca A1: K200.
Acest lucru face ca codul să treacă prin toate rândurile și coloanele din intervalul specificat și să elimine toate rândurile și coloanele ascunse pe care le întâlnește.
În cazul în care ați ascuns rânduri sau coloane în afara acestui interval, acestea ar rămâne neafectate.
Deci, astfel puteți șterge rânduri și coloane ascunse în Excel.
Dacă doriți să o faceți pe întregul registru de lucru, puteți utiliza opțiunea Inspector document. Și în cazul în care aveți nevoie de mai mult control, puteți utiliza codurile VBA așa cum se arată mai sus.
Sper că ți s-a părut util acest tutorial!
