Многи корисници програма Екцел скривају редове и колоне када имају неке податке који им нису потребни.
То је начин да само корисни подаци буду видљиви, а истовремено не морате брисати податке које не морате да буду видљиви.
А, ако имате много таквих скривених редова/колона, могло би бити мука пронаћи и избрисати ове скривене редове и колоне (у случају када вам не требају).
У овом водичу ћу вам показати неколико начина да то учините лако избришите скривене редове и колоне у програму Екцел.
Постоји уграђена метода која вам омогућава да избришете све скривене редове и колоне одједном, а можете користити и ВБА макро кодове у случају да ово желите да примените на изабрани опсег ћелија.
Па да почнемо!
Избришите све скривене редове и колоне у програму Екцел
Ако желите да избришете све скривене редове и колоне у целој радној свесци у Екцелу, можете користити овде приказани метод.
Упамтите да ће се ови скривени редови и колоне уклонити из целе радне свеске, а не само из активног листа.
Испод су кораци за брисање свих скривених редова и колона из радне свеске у програму Екцел:
- Кликните на опцију Датотека
- У опцијама са леве стране кликните на „Информације“
- Кликните на опцију „Провери проблеме“
- Кликните на опцију „Прегледај документ“. Ово ће отворити дијалог Доцумент Инспецтор
- У дијалогу „Инспектор докумената“ кликните на дугме „Провери“. Ово ће прегледати целу радну свеску и дати вам информације о радној свесци
- Померите се надоле до опције „Скривени редови и колоне“. Видећете да приказује укупан број скривених редова и колона које је пронашао у радној свесци.
- Кликните на дугме „Уклони све“
Горе наведени кораци би избрисали све скривене редове и колоне у радној свесци.
Имајте на уму да морате да сачувате ову радну свеску пре него што покренете опцију Инспектор докумената. У случају да радна свеска већ није сачувана, Екцел би вас прво приморао да је сачувате. Такође, приказаће вам упозорење које тражи да једном сачувате датотеку, јер се подаци промењени овим корацима не могу опоравити.
У случају да нема скривених редова и колона, видећете зелену квачицу испред опције Скривено и редови и колоне (у дијалогу Инспектор докумената).
Осим скривених редова и колона, дијалошки оквир Инспектор докумената пружа вам и многе друге корисне информације - попут броја коментара, скривених радних листова или уграђених докумената итд.
Напомена: Не можете поништити промене које је извршио Инспектор докумената. Зато се побрините да имате резервну копију оригиналних података (у случају да вам затребају у будућности)Ово је одличан метод ако желите да избришете све скривене колоне и редове за целу радну свеску.
Али у случају да га желите избрисати само на одређеном листу или у одређеном опсегу, онда не можете користити ову опцију.
У том случају можете користити следећу методу ВБА.
Избришите скривене редове и колоне помоћу ВБА
Ако имате само неколико скривених редова и колона, могуће их је ручно открити, а затим избрисати.
Али ако је то нешто што морате често да радите или ако имате велики скуп података са великим бројем скривених редова/колона, најбоље је да користите ВБА макро кодове за аутоматизацију овог процеса.
Погледајмо различите сценарије у којима можете користити ВБА за брисање ових скривених редова и колона.
Са целог радног листа (коришћени опсег)
Иако могу да натерам ВБА код да провери цео радни лист почевши од броја последњег реда и броја последње колоне на радном листу, то би било губљење ресурса.
Бољи начин би био да видите који се опсег користи, а затим само проверите тај коришћени опсег за све скривене редове и колоне.
Испод је ВБА код који би избрисао све скривене редове у коришћеном опсегу:
Суб ДелетеХидденРовс () Дим схт Као радни лист Дим ЛастРов Сет схт = АцтивеСхеет ЛастРов = схт.УседРанге.Ровс (схт.УседРанге.Ровс.Цоунт) .Ров Фор и = ЛастРов до 1 корак -1 Ако редови (и) .Хидден = Труе Затим Ровс (и) .ЕнтиреРов.Делете Нект Енд Суб
Горњи ВБА код прво открива последњи број реда у коришћеном опсегу и додељује тај број реда променљивој „ЛастРов“.
Овај последњи број реда се затим користи у петљи Фор Нект, где почиње од последњег реда и проверава да ли је скривен или не.
У случају да је скривен, цео ред се брише. А у случају да није скривен, код оставља тај ред какав јесте и прелази у ред изнад њега. Ова петља проверава све редове и брише све скривене редове на које наиђе током процеса.
У случају да желите да избришете све скривене колоне у коришћеном опсегу, користите ВБА код испод:
Суб ДелетеХидденЦолумнс () Дим схт Ас Ворксхеет Дим ЛастЦол ас Интегер Сет схт = АцтивеСхеет ЛастЦол = схт.УседРанге.Цолумнс (схт.УседРанге.Цолумнс.Цоунт) .Цолумн Фор и = ЛастЦол На 1 корак -1 Ако су колоне (и) .Хидден = Тачно Тачно Колоне (и) .ЕнтиреЦолумн.Делете Нект Енд Суб
Ово опет функционише на исти начин, где уместо редова проверавамо колоне.
Тако открива последњи број колоне у коришћеном опсегу, додељује га променљивој, а затим користи петљу за прелазак из последње колоне у прву колону и брисање свих скривених колона у процесу.
А у случају да желите да имате код који би избрисао све скривене редове, као и скривене колоне, користите доњи ВБА код:
Суб ДелетеХидденРовсЦолумнс () Дим схт Као радни лист Дим ЛастРов као Интегер Дим ЛастЦол као Интегер Сет схт = АцтивеСхеет ЛастРов = схт.УседРанге.Ровс (схт.УседРанге.Ровс.Цоунт) .Ров ЛастЦол = схт.УседРанге.Цолумнс. Цолумнс.Цоунт) .Цолумн Фор и = ЛастРов То 1 Степ -1 Иф Ровс (и) .Хидден = Труе тхен Ровс (и) .ЕнтиреРов.Делете Нект Фор и = ЛастЦол То 1 Степ -1 Иф Цолумнс (и) .Хидден = Тачно Тачно Колоне (и) .ЕнтиреЦолумн.Делете Нект Енд Суб
Ово је само комбиновани код за редове и колоне и ради на исти начин.
Уместо једне петље, ово користи две одвојене петље, где прво пролази кроз све редове, а затим пролази кроз све колоне. У том процесу брише све скривене редове и колоне на које наиђе.
Имајте на уму да морате да поставите овај ВБА код у обичан модул у уређивачу Висуал Басиц. Затим можете покренути код директно из ВБ Едитор -а, помоћу дијалога за макро или додавањем овог макроа на траку са алаткама за брзи приступ.
Ако је ово нешто што морате да радите прилично често, можете такође додати овај код у личну радну свеску макроа како бисте јој имали приступ из свих радних свезака на вашем систему.
Из одређеног распона ћелија
У случају да имате одређени распон из којег желите уклонити скривене редове и колоне, морате то навести унутар кода.
Ово осигурава да код кружи само кроз редове и колоне у наведеном опсегу, а остале области на радном листу оставља нетакнутим
Испод ВБА кода који би то урадио:
Суб ДелетеХидденРовсЦолумнс () Дим схт Као радни лист Дим Рнг Ас Ранге Дим ЛастРов Ас Интегер Дим РовЦоунт Ас Интегер Сет схт = АцтивеСхеет Сет Рнг = Ранге ("А1: К200") РовЦоунт = Рнг.Ровс.Цоунт ЛастРов = Рнг.Ровс (Рнг. Ровс.Цоунт) .Ров ЦолЦоунт = Рнг.Цолумнс.Цоунт ЛастЦол = Рнг.Цолумнс (Рнг.Цолумнс.Цоунт) .Цолумн Фор и = ЛастРов То ЛастРов - РовЦоунт Степ -1 Иф Ровс (и) .Хидден = Труе тхен Ровс ( и) .ЕнтиреРов.Делете Нект Фор ј = ЛастЦол То ЛастЦол - ЦолЦоунт Степ -1 Иф Цолумнс (ј) .Хидден = Труе тхен Цолумнс (ј) .ЕнтиреЦолумн.Делете Нект Енд Суб
У горњем коду сам навео опсег као А1: К200.
Ово чини да код пролази кроз све редове и колоне у наведеном опсегу и уклања све скривене редове и колоне на које наиђе.
У случају да имате скривене редове или колоне изван овог опсега, на њих то неће утицати.
Дакле, овако можете избрисати скривени редови и колоне у Екцелу.
Ако желите да то радите у целој радној свесци, можете да користите опцију Доцумент Инспецтор. А у случају да вам је потребна већа контрола, можете користити ВБА кодове како је приказано горе.
Надам се да вам је овај водич био користан!
