Paljud Exceli kasutajad peidavad ridu ja veerge, kui neil on andmeid, mida nad ei vaja.
See on võimalus hoida kasulikud andmed nähtavana ja samal ajal ei pea kustutama andmeid, mida te ei pea nähtavaks tegema.
Ja kui teil on palju selliseid peidetud ridu/veerge, võib nende peidetud ridade ja veergude leidmine ja kustutamine olla valus (juhul, kui te neid ei vaja).
Selles õpetuses näitan teile paar lihtsat viisi kustutage Excelis peidetud read ja veerud.
On sisseehitatud meetod, mis võimaldab teil korraga kustutada kõik peidetud read ja veerud, samuti saate kasutada VBA makrokoode juhuks, kui soovite seda meie valitud lahtrite vahemikule rakendada.
Nii et alustame!
Kustutage Excelis kõik peidetud read ja veerud
Kui soovite Excelis kogu töövihiku kõik peidetud read ja veerud kustutada, võite kasutada siin näidatud meetodit.
Pidage meeles, et need peidetud read ja veerud eemaldatakse kogu töövihikust, mitte ainult aktiivselt lehelt.
Allpool on toodud sammud kõigi peidetud ridade ja veergude kustutamiseks Exceli töövihikust:
- Klõpsake suvandil Fail
- Vasakpoolsetes suvandites klõpsake nuppu "Teave"
- Klõpsake suvandit „Kontrolli probleeme”
- Klõpsake suvandit „Kontrolli dokumenti”. See avab dialoogiboksi Document Inspector
- Klõpsake dialoogiboksis „Dokumendi inspektor” nuppu „Kontrolli”. See kontrollib kogu töövihikut ja annab teile teavet töövihiku kohta
- Kerige alla suvandini „Peidetud read ja veerud”. Näete, et see näitab töövihikust leitud peidetud ridade ja veergude koguarvu.
- Klõpsake nuppu „Eemalda kõik”
Ülaltoodud toimingud kustutaksid kõik töövihiku peidetud read ja veerud.
Pange tähele, et peate selle töövihiku salvestama enne suvandi Dokumendi kontrollija käivitamist. Kui töövihikut pole juba salvestatud, sunnib Excel kõigepealt selle salvestama. Samuti kuvatakse teile hoiatus, mis palub faili üks kord salvestada, kuna nende toimingutega muudetud andmeid ei saa taastada.
Kui peidetud ridu ja veerge pole, näeksite rohelise linnukese enne suvandit Peidetud ja read ja veerud (dialoogiboksis Dokumendi inspektor).
Lisaks peidetud ridadele ja veergudele pakub dialoogiboks Dokumentide inspektor teile ka palju muud kasulikku teavet - näiteks kommentaaride arv, peidetud töölehed või manustatud dokumendid jne.
Märkus. Dokumendiinspektori tehtud muudatusi ei saa tagasi võtta. Nii et veenduge, et teil oleks originaalandmetest varukoopia (juhuks, kui teil seda tulevikus vaja läheb)See on suurepärane meetod, kui soovite kustutada kogu töövihiku peidetud veerud ja read.
Kuid kui soovite selle kustutada ainult kindlal lehel või kindlas vahemikus, ei saa te seda võimalust kasutada.
Sellisel juhul võite kasutada järgnevalt käsitletud VBA meetodit.
Peidetud ridade ja veergude kustutamine VBA abil
Kui teil on ainult paar peidetud rida ja veergu, saate need käsitsi peita ja seejärel kustutada.
Aga kui seda peate tegema üsna sageli või kui teil on suur andmekogum, kus on palju peidetud ridu/veerge, on selle protsessi automatiseerimiseks kõige parem kasutada VBA makrokoode.
Vaatame erinevaid stsenaariume, kus saate VBA abil neid peidetud ridu ja veerge kustutada.
Kogu töölehelt (kasutatud vahemik)
Kuigi ma saan panna VBA koodi kontrollima kogu töölehte alates töölehe viimasest rea numbrist ja viimase veeru numbrist, oleks see ressursside raiskamine.
Parem meetod oleks näha, milline on kasutatav vahemik, ja seejärel kontrollida seda peidetud ridade ja veergude puhul ainult seda vahemikku.
Allpool on VBA -kood, mis kustutaks kõik kasutatud vahemiku peidetud read:
Sub DeleteHiddenRows () Dim sht Töölehena Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count). Seejärel read (i). Kogu rida. Kustutage järgmine lõpp
Ülaltoodud VBA -kood selgitab kõigepealt välja kasutatud rea viimase rea numbri ja määrab selle rea numbri muutujale „LastRow”.
Seda viimast reanumbrit kasutatakse seejärel järgmiseks silmuseks, kus see algab viimasest reast ja kontrollib, kas see on peidetud või mitte.
Kui see on peidetud, kustutatakse see terve rida. Ja kui see pole peidetud, jätab kood selle rea sellisena, nagu see on, ja liigub selle kohal olevale reale. See tsükkel kontrollib kõiki ridu ja kustutab kõik peidetud read, millega see protsess kokku puutub.
Kui soovite kustutada kõik kasutatud vahemiku peidetud veerud, kasutage allolevat VBA -koodi:
Sub DeleteHiddenColumns () Dim sht kui tööleht Dim LastCol kui täisarv Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count). Veerg i = LastCol kuni 1. samm -1 Kui veerud (i). Peidetud = Tõene siis veerud (i). Kogu veerg. Kustuta järgmine lõpp
See toimib jällegi samamoodi, kus ridade asemel kontrollime veerge.
Nii selgitab ta välja kasutatava vahemiku viimase veeru numbri, määrab selle muutujale ja kasutab seejärel silmust, et minna viimasest veerust esimesse veergu ja kustutada kõik peidetud veerud.
Ja kui soovite koodi, mis kustutaks kõik peidetud read ja peidetud veerud, kasutage allolevat VBA -koodi:
Sub DeleteHiddenRowsColumns () Dim sht kui tööleht Dim LastRow täisarvuna Dim LastCol täisarvuna Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns (sht.UsedRange. Veerud. Loend). Veerg i = Viimane rida 1. sammule -1 Kui read (i). Peidetud = Tõene, siis read (i). Kogu rida. Kustuta Järgmine, kui i = LastCol, 1. samm -1, kui veerud (i). Peidetud. = Tõene siis veerud (i). Kogu veerg. Kustuta järgmine lõpp
See on lihtsalt nii ridade kui ka veergude kombineeritud kood ja toimib samamoodi.
Ühe silmuse asemel kasutab see kahte eraldi silmust, kus see kõigepealt läbib kõik read ja seejärel kõik veerud. Ja selle käigus kustutab see kõik peidetud read ja veerud, millega ta kokku puutub.
Pange tähele, et peate selle VBA koodi paigutama Visual Basic Editori tavalisse moodulisse. Seejärel saate koodi käivitada otse VB redaktorist, kasutades makro dialoogiboksi või lisades selle makro kiirjuurdepääsu tööriistaribale.
Kui see on midagi, mida peate tegema üsna sageli, saate selle koodi lisada ka isiklikule makro töövihikule, nii et teil oleks sellele juurdepääs kõigist oma süsteemi töövihikutest.
Konkreetsest rakkude vahemikust
Kui teil on konkreetne vahemik, kust soovite peidetud read ja veerud eemaldada, peate selle koodis täpsustama.
See tagab, et kood ringleb ainult selle vahemiku ridade ja veergude kaudu ning jätab muud töölehe alad puutumata
Allpool VBA -koodi, mis seda teeks:
Alam KustutaHiddenRowsColumns () Dim sht kui tööleht Dim Rng kui vahemik Dim LastRow täisarvuna Dim RowCount kui täisarv Set sht = ActiveSheet Set Rng = Vahemik ("A1: K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows (Rng. Rows.Count). Rida 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 Rids ( i) .EntireRow.Delete Next For j = LastCol to LastCol - ColCount Step -1 If Veerud (j). Hidden = True then Veerud (j) .EntireColumn.Delete Next End Sub
Ülaltoodud koodis olen määranud vahemiku A1: K200.
See paneb koodi läbima kõik määratud vahemiku read ja veerud ning eemaldama kõik peidetud read ja veerud, millega see kokku puutub.
Kui teil on sellest vahemikust väljaspool peidetud ridu või veerge, jäävad need muutmata.
Nii saate kustutada nii peidetud read ja veerud Excelis.
Kui soovite seda teha kogu töövihikus, saate kasutada suvandit Dokumendi inspektor. Ja kui vajate rohkem kontrolli, saate kasutada VBA koode, nagu eespool näidatud.
Loodan, et sellest õpetusest oli teile kasu!
