Daugelis „Excel“ vartotojų slepia eilutes ir stulpelius, kai turi duomenų, kurių jiems nereikia matyti.
Tai būdas išlaikyti matomus tik naudingus duomenis ir tuo pačiu metu nereikia ištrinti duomenų, kurių jums nereikia matyti.
Ir jei turite daug tokių paslėptų eilučių/stulpelių, gali būti sunku rasti ir ištrinti šias paslėptas eilutes ir stulpelius (tuo atveju, kai jums jų nereikia).
Šioje pamokoje parodysiu keletą būdų, kaip lengvai ištrinkite paslėptas eilutes ir stulpelius „Excel“.
Yra integruotas metodas, leidžiantis vienu metu ištrinti visas paslėptas eilutes ir stulpelius, taip pat galite naudoti VBA makrokomandų kodus, jei norite tai pritaikyti pasirinktam langelių diapazonui.
Taigi pradėkime!
Ištrinkite visas paslėptas eilutes ir stulpelius „Excel“
Jei norite ištrinti visas paslėptas eilutes ir stulpelius visoje „Excel“ darbaknygėje, galite naudoti čia parodytą metodą.
Atminkite, kad šios paslėptos eilutės ir stulpeliai bus pašalinti iš visos darbaknygės, o ne tik iš aktyvaus lapo.
Toliau pateikiami veiksmai, kaip ištrinti visas paslėptas eilutes ir stulpelius iš „Excel“ darbaknygės:
- Spustelėkite parinktį Failas
- Kairėje esančiose parinktyse spustelėkite „Informacija“
- Spustelėkite parinktį „Tikrinti problemas“
- Spustelėkite parinktį „Tikrinti dokumentą“. Bus atidarytas dialogo langas Dokumentų inspektorius
- Dialogo lange „Dokumentų tikrintojas“ spustelėkite mygtuką „Tikrinti“. Tai patikrins visą darbo knygą ir suteiks jums informacijos apie darbaknygę
- Slinkite žemyn iki parinkties „Paslėptos eilutės ir stulpeliai“. Pamatysite, kad jis rodo bendrą paslėptų eilučių ir stulpelių skaičių, kurį rado darbo knygoje.
- Spustelėkite mygtuką „Pašalinti viską“
Pirmiau minėti veiksmai ištrins visas paslėptas darbo knygos eilutes ir stulpelius.
Atminkite, kad šią darbaknygę turite išsaugoti prieš paleisdami parinktį Dokumentų tikrintojas. Jei darbaknygė dar neišsaugota, „Excel“ pirmiausia privers ją išsaugoti. Be to, jis parodys įspėjamąjį raginimą vieną kartą išsaugoti failą, nes šiais veiksmais pakeistų duomenų negalima atkurti.
Jei nėra paslėptų eilučių ir stulpelių, prieš parinktį Paslėpti ir Eilutės ir stulpeliai (dialogo lange Dokumentų tikrintojas) matysite žalią varnelę.
Be paslėptų eilučių ir stulpelių, dialogo lange Dokumentų tikrintojas taip pat pateikiama daug kitos naudingos informacijos, pvz., Komentarų, paslėptų darbalapių, įterptųjų dokumentų ir kt.
Pastaba: Negalite anuliuoti dokumentų inspektoriaus atliktų pakeitimų. Taigi įsitikinkite, kad turite atsarginę originalių duomenų kopiją (jei prireiks ateityje)Tai puikus būdas, jei norite ištrinti visus paslėptus visos darbaknygės stulpelius ir eilutes.
Tačiau tuo atveju, jei norite jį ištrinti tik konkrečiame lape arba konkrečiame diapazone, negalite naudoti šios parinkties.
Tokiu atveju galite naudoti toliau aprašytą VBA metodą.
Naudodami VBA ištrinkite paslėptas eilutes ir stulpelius
Jei turite tik keletą paslėptų eilučių ir stulpelių, galite juos rodyti rankiniu būdu ir tada ištrinti.
Bet jei tai reikia padaryti gana dažnai arba jei turite didelį duomenų rinkinį, kuriame yra daug paslėptų eilučių/stulpelių, geriau automatizuoti šį procesą naudodami VBA makrokomandų kodus.
Pažvelkime į skirtingus scenarijus, kuriuose galite naudoti VBA, kad ištrintumėte šias paslėptas eilutes ir stulpelius.
Iš viso darbalapio (naudojamas diapazonas)
Nors galiu priversti VBA kodą patikrinti visą darbalapį, pradedant nuo paskutinio eilutės numerio ir paskutinio stulpelio numerio darbalapyje, tai būtų išteklių švaistymas.
Geresnis metodas būtų pamatyti, koks yra naudojamas diapazonas, ir tik tada patikrinti, ar naudojamas paslėptų eilučių ir stulpelių diapazonas.
Žemiau yra VBA kodas, kuris ištrintų visas paslėptas eilutes naudojamame diapazone:
Sub DeleteHiddenRows () Dim sht kaip darbalapis Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count). Row For i = LastRow To 1 Step -1 Jei eilutės (i). Hidden = True Tada eilutės (i). Visa eilutė. Ištrinkite kitą pabaigą
Aukščiau pateiktas VBA kodas pirmiausia nustato paskutinį naudojamo diapazono eilutės numerį ir priskiria tą eilutės numerį kintamajam „LastRow“.
Šis paskutinės eilutės numeris naudojamas ciklui „Kitas“, kur jis prasideda nuo paskutinės eilutės ir patikrina, ar jis paslėptas, ar ne.
Jei jis paslėptas, visa eilutė ištrinama. Ir jei jis nėra paslėptas, kodas palieka tą eilutę tokią, kokia yra, ir pereina į eilutę virš jos. Ši kilpa patikrina visas eilutes ir ištrina visas paslėptas eilutes, su kuriomis susiduria.
Jei norite ištrinti visus paslėptus naudojamo diapazono stulpelius, naudokite toliau pateiktą VBA kodą:
Sub DeleteHiddenColumns () Dim sht kaip darbalapis Dim LastCol kaip Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count). Column For i = LastCol To 1 Step -1 If Column (i). = Tiesa tada stulpeliai (i). Visa stulpelis. Ištrinkite kitą pabaigą
Tai vėl veikia taip pat, kai vietoje eilučių tikriname, ar nėra stulpelių.
Taigi jis sužino paskutinio stulpelio numerį naudojamame diapazone, priskiria jį kintamajam, o paskui naudoja kilpą, kad pereitų iš paskutinio stulpelio į pirmąjį stulpelį ir ištrintų visus paslėptus stulpelius.
Ir jei norite turėti kodą, kuris ištrintų visas paslėptas eilutes, taip pat paslėptus stulpelius, naudokite žemiau esantį VBA kodą:
Sub DeleteHiddenRowsColumns () Dim sht kaip darbalapis Dim LastRow kaip Integer Dim LastCol kaip Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns (sht.UsedRange. Stulpeliai. Skaičius). Stulpelis i = Paskutinė eilutė iki 1 veiksmo -1 Jei eilutės (i). Paslėpta = Tiesa, tada eilutės (i). Visa eilutė. Ištrinkite Kitas, jei i = Paskutinė eilutė iki 1 veiksmo -1 Jei stulpeliai (i). Paslėptas = Tiesa tada stulpeliai (i). Visa stulpelis. Ištrinkite kitą pabaigą
Tai tik kombinuotas abiejų eilučių ir stulpelių kodas ir veikia taip pat.
Vietoj vienos kilpos naudojama dvi atskiros kilpos, kur ji pirmiausia eina per visas eilutes, o paskui - per visus stulpelius. Proceso metu jis ištrina visas paslėptas eilutes ir stulpelius.
Atminkite, kad šį VBA kodą turite įdėti į įprastą „Visual Basic“ redaktoriaus modulį. Tada galite paleisti kodą tiesiai iš VB redaktoriaus, naudodami makrokomandų dialogo langą arba pridėję šią makrokomandą prie greitos prieigos įrankių juostos.
Jei tai turite padaryti gana dažnai, taip pat galite pridėti šį kodą prie asmeninės makrokomandos darbaknygės, kad galėtumėte jį pasiekti iš visų savo sistemos darbaknygių.
Iš specifinio ląstelių diapazono
Jei turite konkretų diapazoną, iš kurio norite pašalinti paslėptas eilutes ir stulpelius, turite tai nurodyti kode.
Tai užtikrina, kad kodas skrieja tik per nurodyto diapazono eilutes ir stulpelius, o kitos darbalapio sritys lieka nepaliestos
Žemiau VBA kodas, kuris tai padarytų:
Sub DeleteHiddenRowsColumns () Dim sht kaip darbalapis Dim Rng kaip diapazonas 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). Stulpelis i = LastRow To LastRow - RowCount 1 veiksmas Jei eilutės (i). Hidden = True then Rows ( i) .EntireRow.Delete Next For j = LastCol To LastCol - ColCount -1 veiksmas Jei stulpeliai (j). Paslėptas = tiesa Tada stulpeliai (j) .EntireColumn.Delete Next End Sub
Pirmiau pateiktame kode aš nurodžiau diapazoną kaip A1: K200.
Dėl to kodas eina per visas nurodyto diapazono eilutes ir stulpelius ir pašalina visas paslėptas eilutes ir stulpelius.
Jei paslėptos eilutės ar stulpeliai yra už šio diapazono ribų, jie nebus paveikti.
Taigi šitaip galite ištrinti paslėptos eilutės ir stulpeliai „Excel“.
Jei norite tai padaryti visoje darbaknygėje, galite naudoti parinktį Dokumentų tikrintojas. Ir jei jums reikia daugiau kontrolės, galite naudoti VBA kodus, kaip parodyta aukščiau.
Tikiuosi, kad ši pamoka jums buvo naudinga!
