Како избрисати сваки други ред у Екцелу (или сваки Нти ред)

Гледајте видео - избришите сваки други ред у Екцелу

Понекад ћете можда морати да избришете сваки други ред (тј. Наизменичне редове) или сваки трећи/четврти/пети ред у Екцелу.

Један од примера овог коришћења може бити када имате недељне податке, а податке желите само за парне или непарне недеље. Друго може бити када добијете думп података из базе података, а сви корисни подаци су само у сваком другом или трећем реду.

Иако увек имате могућност ручног одабира и брисања редова, ово је неефикасно у случају да имате велики скуп података.

Постоје бољи начини за то.

У овом водичу ћу вам показати неколико начина да избришете сваки други ред у Екцелу помоћу једноставне технике филтрирања. А ако се не слажете са коришћењем ВБА макро кода, дао сам и кратак ВБА код који то ради једним кликом. Методе су приказане у овом водичу за све верзије програма Екцел (2007, 2010, 2013 и 2016)

Иако брисање сваког другог реда у Екцелу може бити прилично једноставно, брисање сваке друге колоне могло би бити изазов. То је зато што не можете филтрирати колоне у Екцелу (начин на који можете филтрирати редове). У последњем одељку овог водича такође ћу вам показати неке начине брисања алтернативних колона (или сваке Н -те колоне) у Екцелу.

Избришите сваки други ред филтрирањем скупа података (помоћу формуле)

Ако бисте могли некако да филтрирате све парне редове или непарне редове, било би супер лако избрисати ове редове/записе.

Иако не постоји уграђена функција за то, можете користити помоћну колону да бисте прво поделили редове на непарне и парне, а затим филтрирали на основу вредности помоћне колоне.

Претпоставимо да имате скуп података као што је приказано испод, који садржи податке о продаји за сваког представника продаје за два региона (САД и Канада) и желите да избришете податке за Канаду.

Испод су кораци за прво филтрирање, а затим брисање сваког другог реда (који има податке за Канаду):

1. У ћелију поред заглавља последње колоне унесите текст ХелперЦолумн (или било који текст заглавља који желите да има помоћна колона)
2. У ћелију испод заглавља колоне помоћника унесите следећу формулу: = ИСЕВЕН (РОВ ()). Копирајте ову формулу за све ћелије. Ова формула враћа ТРУЕ за све парне редове и ФАЛСЕ за све ОДД редове
3. Изаберите цео скуп података (укључујући ћелије у које смо унели формулу у горњем кораку).
4. Кликните на картицу Подаци
5. Кликните на икону Филтер. Ово ће применити филтер на сва заглавља у скупу података
6. Кликните на икону Филтер у ћелији ХелперЦолумн.
7. Поништите одабир опције ТРУЕ (тако да је одабрана само ФАЛСЕ опција)
8. Притисните ОК. Ово ће филтрирати податке и приказати само оне записе где је вредност ХелперЦолумн ФАЛСЕ.
9. Изаберите све филтриране ћелије у помоћној колони (искључујући заглавље)
10. Кликните десним тастером миша на било коју од изабраних ћелија и кликните на „Избриши ред“
11. У дијалогу који се отвори кликните на ОК. Ово ће избрисати све видљиве записе и од сада ћете видети само ред заглавља.
12. Кликните на картицу Подаци, а затим кликните на икону Филтер. Ово ће уклонити филтер и моћи ћете да видите све преостале записе.

Горе наведени кораци филтрирају сваки други ред у скупу података, а затим бришу те редове.

Не брините о вредностима помоћних колона у овој фази. Добијени подаци имају само редове за САД и сви канадски редови се бришу. Сада можете да избришете помоћну колону.

У случају да желите да избришете сваки други ред почевши од првог реда, изаберите опцију ТРУЕ у кораку 7 и поништите избор опције ФАЛСЕ.

Напомена: Када избришете редове у Екцелу на горенаведени начин, такође се бришу сви подаци које можда имате у целини (осим оних у скупу података). Када користите ову методу, уверите се да немате ништа лево и десно од скупа података који бришете.

Иако је горњи метод одличан, он има два недостатка:

1. Морате да додате нову колону ( ХелперЦолумн у нашем примеру изнад)
2. Може да одузме много времена ако морате често да бришете алтернативне редове

Повезани водич: Брисање редова на основу вредности ћелије (или услова) у Екцелу

Избришите сваки Н -ти ред филтрирањем скупа података (помоћу формуле)

У горњој методи сам вам показао како да избришете сваки други ред (алтернативни ред) у Екцелу.

Исту логику можете користити за брисање сваког трећег или четвртог реда у Екцелу.

Претпоставимо да имате скуп података као што је приказано испод и желите да избришете сваки трећи ред.

Кораци за брисање сваког трећег реда су скоро исти као они описани у горњем одељку (за брисање алтернативних редова). Једина разлика је у формули која се користи у 2. кораку.

У наставку су наведени кораци за то:

1. У ћелију поред заглавља последње колоне унесите текст ХелперЦолумн (или било који текст заглавља за који желите да има помоћну колону)
2. У ћелију испод заглавља колоне помоћника унесите следећу формулу: = МОД (РОВ (), 3) = 1. Ова формула враћа ТРУЕ за сваки трећи ред и ФАЛСЕ за сваки други ред.
3. Изаберите цео скуп података (укључујући ћелије у које смо унели формулу у горњем кораку).
4. Кликните на картицу Подаци
5. Кликните на икону Филтер. Ово ће применити филтер на сва заглавља у скупу података
6. Кликните на икону Филтер у ћелији ХелперЦолумн.
7. Поништите одабир опције ТРУЕ (тако да је одабрана само ФАЛСЕ опција)
8. Притисните ОК. Ово ће филтрирати податке и приказати само оне записе где је вредност ХелперЦолумн ФАЛСЕ.
9. Изаберите све ћелије у помоћној колони
10. Десним тастером миша кликните било коју од изабраних ћелија и кликните на Избриши ред
11. У дијалогу који се отвори кликните на ОК. Ово ће избрисати све видљиве записе и од сада ћете видети само ред заглавља.
12. Кликните на картицу Подаци, а затим кликните на икону Филтер. Ово ће уклонити филтер и моћи ћете да видите све преостале записе.

Горе наведени кораци избрисали би сваки трећи ред из скупа података и добили бисте резултујуће податке као што је приказано испод.

Не брините о вредностима помоћних колона у овој фази. Сада можете да избришете помоћну колону.

Формула која се користи у 2. кораку користи функцију МОД - која даје остатак када се један број подели са другим. Овде сам користио функцију РОВ да добијем број реда и он је подељен са 3 (јер желимо да избришемо сваки трећи ред).

Пошто наш скуп података почиње од другог реда па надаље (тј. Ред #2 садржи први запис), користим следећу формулу:= МОД (РОВ (), 3) = 1

Изједначавам га са 1 и за сваки трећи ред, формула МОД ће дати остатак као 1.

Формулу можете прилагодити у складу с тим. На пример, ако први запис вашег скупа података почиње од трећег реда па надаље, формула би била таква = МОД (РОВ (), 3) = 2

Аутоматски избришите сваки други ред (или Н -ти ред) користећи ВБА макро (брзи метод)

Ако морате често брисати сваки други ред (или сваки н -ти ред), можете користити ВБА код и учинити га доступним на траци са алаткама за брзи приступ. Ово ће вам омогућити брзо брисање алтернативних редова једним кликом.

Испод је код који вас прво пита да изаберете опсег у којем желите да избришете алтернативне редове, а затим обришете сваки други ред у изабраном скупу података.

Суб Делете_Евери_Отхер_Ров () Дим Рнг Ас Ранге Сет Рнг = Апплицатион.ИнпутБок ("Изаберите опсег (искључујући заглавља)", "Ранге Селецтион", Типе: = 8) За и = Рнг.Ровс.Цоунт То 1 Степ -2 Иф и Мод 2 = 0 Затим Рнг.Ровс (и) .Делете Енд Иф Нект и Енд Суб

Када покренете горњи код, од вас ће се прво тражити да изаберете опсег ћелија. Када направите избор, он ће проћи кроз сваки ред и избрисати сваки други ред.

Ако уместо тога желите да избришете сваки трећи ред, можете користити доњи код:

Суб Делете_Евери_Тхирд_Ров () Дим Рнг Ас Ранге Сет Рнг = Апплицатион.ИнпутБок ("Изаберите опсег (искључујући заглавља)", "Одабир опсега", Тип: = 8) За и = Рнг.Ровс.Цоунт То 1 Степ -3 Иф и Мод 3 = 0 Затим Рнг.Ровс (и) .Делете Енд Иф Нект и Енд Суб

Где ставити овај ВБА макро код?

Овај код морате да поставите у обичан модул у ВБ уређивачу у Екцелу.

Испод су кораци за отварање Вб Едитор -а, додавање модула и постављање кода у њега:

1. Копирајте горњи ВБА код.
2. Идите на картицу Девелопер.
3. Кликните на Висуал Басиц.
4. У ВБ Едитор-у кликните десним тастером миша на било који објект радне свеске.
5. Идите на Уметни и кликните на Модул.
6. У модул налепите горњи ВБА код.
7. Затворите ВБ Едитор.

Када имате код у ВБ Едитор -у, можете користити следеће методе за покретање кода:

• Покрените макро из ВБ Едитор -а (кликом на зелено дугме за репродукцију на траци са алаткама ВБ Едитор)
• Постављањем курсора на било који ред у коду и коришћењем тастера Ф5
• Додељивањем макроа дугмету/облику
• Додавањем макроа на траку са алаткама за брзи приступ

Ево детаљног водича о томе како покренути макро у програму Екцел.

Ако то морате често да радите, можете размислити о додавању ВБА кода у радну свеску о личним макроима. На овај начин ће вам увек бити на располагању за употребу у свим радним свескама.

Када имате ВБА код у радној свесци, морате га сачувати као датотеку са омогућеним макроима (са екстензијом .КСЛСМ)

Напомена: Пошто су све промене које је направио ВБА код неповратне, најбоље је прво направити резервну копију радне свеске/радног листа, а затим покренути овај код.

Избриши сваку другу колону (или сваку Нту колону)

Брисање сваког алтернативног реда или сваког трећег/четвртог реда је једноставно јер можете користити опцију филтрирања. Све што треба да урадите је да користите формулу која идентификује алтернативне редове (или сваки трећи/четврти ред) и филтрира ове редове.

Нажалост, ова иста методологија неће радити са колонама - јер не можете филтрирати колоне на начин на који филтрирате редове.

Дакле, ако морате избрисати сваку другу колону (или сваку трећу/четврту/Н -ту колону), морате бити мало креативнији.

У овом одељку ћу вам показати два метода помоћу којих можете избрисати сваку другу колону у Екцелу (а можете користити исти метод за брисање сваке треће/четврте/Н -те колоне ако желите).

Избришите алтернативне колоне користећи формуле и метод сортирања

Претпоставимо да имате скуп података као што је приказано испод и желите да избришете сваку другу колону (искључујући колону заглавља А)

Трик овде би био да се идентификују алтернативне колоне помоћу формуле, а затим сортирају колоне на основу те формуле. Када заједно сортирате колоне, ово можете ручно изабрати и избрисати.

Испод су кораци за брисање сваке друге колоне у Екцелу:

1. Уметните ред изнад реда заглавља (кликните десним тастером миша на било коју ћелију у заглављу, кликните на Уметни, а затим на опцију Цео ред)
2. Унесите следећу формулу у ћелију изнад крајње леве колоне у скупу података и копирајте за све ћелије: = МОД (ЦОЛУМН (), 2)
3. Претворите вредности формуле у бројеве. Да бисте то урадили, копирајте ћелије, кликните десним тастером миша и идите на Посебно лепљење -> Налепи вредности.
4. Изаберите цео скуп података (искључујући заглавља у колони). У овом примеру сам изабрао Б1: Г14 (и НЕ колона А)
5. Кликните на картицу Подаци
6. Кликните на икону Сортирај
7. У дијалогу Сортирање унесите следеће промене:
   • Кликните на дугме „Опције“ и у дијалогу који се отвори кликните на „Сортирај слева надесно“, а затим кликните на дугме У реду
   • У падајућем менију Сортирај према изаберите 1. ред. Ово је ред са резултатима формуле
   • У падајућем менију Редослед изаберите Од најмањег до највећег.
8. Притисните ОК

Горе наведени кораци сортирају све колоне и окупљају све алтернативне колоне на једном месту (на крају).

Сада можете изабрати све ове колоне (за које је вредност формуле 1) и избрисати их.

Иако ово није најбоље решење, оно ипак завршава посао.

У случају да желите да избришете сваку трећу колону или сваку четврту колону, потребно је да формулу прилагодите према томе.

Сродни водич: Како сортирати у Екцелу (по редовима, колонама, бојама, датумима и бројевима)

Брисање алтернативних колона помоћу ВБА

Још један брз начин за брисање алтернативних колона је употреба доњег ВБА кода:

Суб Делете_Евери_Отхер_Цолумн () Дим Рнг Ас Ранге Сет Рнг = Апплицатион.ИнпутБок ("Изаберите опсег (искључујући заглавља)", "Одабир опсега", Тип: = 8) За и = Рнг.Цолумнс.Цоунт То 1 Степ -2 Иф и Мод 2 = 0 Затим Рнг.Цолумнс (и) .Делете Енд Иф Нект и Енд Суб

Горњи код тражи од вас да изаберете опсег ћелија који садржи колоне. Овде морате да изаберете колоне осим оне која има заглавље.

Након што наведете распон ћелија с подацима, он ће користити Фор Лооп и избрисати сваку другу колону.

У случају да желите да избришете сваку трећу колону, можете користити доњи код (и прилагодити је према томе да бисте избрисали Н -ту колону)

Суб Делете_Евери_Тхирд_Цолумн () Дим Рнг Ас Ранге Сет Рнг = Апплицатион.ИнпутБок ("Изаберите опсег (искључујући заглавља)", "Одабир опсега", Тип: = 8) За и = Рнг.Цолумнс.Цоунт То 1 Степ -3 Иф и Мод 3 = 0 Затим Рнг.Цолумнс (и) .Делете Енд Иф Нект и Енд Суб

Кораци о томе где поставити овај ВБА код и како га користити описани су у горњем одељку под насловом - „Аутоматски избришите сваки други ред (или Н -ти ред) користећи ВБА макро (брзи метод)“

Надам се да вам је ово упутство за Екцел било корисно.