Преглед садржаја
Овај кратки водич објашњава како да избришете сваки други ред у Екцел-у филтрирањем или помоћу ВБА кода. Такође ћете научити како да уклоните сваки 3., 4. или било који други Н-ти ред.
Постоје многе ситуације када ћете можда морати да избришете алтернативне редове у Екцел радним листовима. На пример, можда ћете желети да задржите податке парне недеље (редови 2, 4, 6, 8, итд.) и да преместите све непарне недеље (редови 3, 5, 7 итд.) на други лист.
Генерално, брисање сваког другог реда у Екцел-у своди се на избор алтернативних редова. Када су редови изабрани, довољан је само један потез на дугмету Делете . Даље у овом чланку, научићете неколико техника за брзо бирање и брисање сваког другог или сваког Н-ог реда у Екцел-у.
Како да обришете сваки други ред у Екцел-у филтрирањем
У суштини, уобичајен начин за брисање сваког другог реда у Екцел-у је следећи: прво филтрирате алтернативне редове, затим их изаберете и избришете све одједном. Детаљни кораци следе у наставку:
- У празну колону поред оригиналних података унесите низ нула и јединица. То можете брзо да урадите тако што ћете откуцати 0 у прву ћелију и 1 у другу ћелију, а затим копирати прве две ћелије и налепити их низ колону до последње ћелије са подацима.
Алтернативно, можете користити ову формулу:
Такође видети: ИФ ВЛООКУП у Екцел-у: Влоокуп формула са Иф условом=MOD(ROW(),2)
Логика формуле је врло једноставна: функција РОВ враћа тренутни број реда, функција МОДдели га са 2 и враћа остатак заокружен на цео број.
Као резултат, имате 0 у свим парним редовима (јер су подједнако подељени са 2 без остатка) и 1 у свим непарним редовима:
- У зависности од тога да ли желите да избришете парне или непарне редове, филтрирајте јединице или нуле.
Да бисте то урадили, изаберите било коју ћелију у колони Помоћник, идите на картицу Подаци &гт; Сортирај и филтрирај групу и кликните на Филтер дугме. Стрелице падајућег филтера ће се појавити у свим ћелијама заглавља. Кликнете на дугме са стрелицом у колони Помоћник и означите једно од поља за потврду:
- 0 за брисање парних редова
- 1 за брисање непарних редова
У овом примеру ћемо уклонити редове са вредностима „0“, па ћемо их филтрирати:
- Сада када су сви редови „1“ сакривени, изаберите све видљиве "0" редове, кликните десним тастером миша на избор и кликните на Избриши ред :
- Претходни корак вам је оставио празну табелу , али не брините, редови „1“ су још увек ту. Да бисте их поново учинили видљивим, једноставно уклоните аутоматски филтер тако што ћете поново кликнути на дугме Филтер :
- Формула у колони Ц се поново израчунава за преостале редове, али ти више не треба. Сада можете безбедно да избришете колону Хелпер:
Као резултат, на нашем радном листу су остале само парне недеље, а непарне недеље су нестале!
Савет. Ако желите да преместите свакидруги ред на неко друго место уместо да их потпуно избришете, прво копирајте филтриране редове и налепите их на нову локацију, а затим избришите филтриране редове.
Како да избришете алтернативне редове у Екцел-у помоћу ВБА
Ако нисте вољни да губите време на тривијални задатак као што је брисање сваког другог реда у вашим Екцел радним листовима, следећи ВБА макро може да аутоматизује процес за вас:
Суб Делете_Алтернате_Ровс_Екцел() Дим СоурцеРанге Ас Ранге Подесите СоурцеРанге = Апплицатион.Селецтион Постави СоурцеРанге = Апплицатион.ИнпутБок( "Ранге:" , "Селецт тхе ранге" , СоурцеРанге.Аддресс, Типе :=8) Ако СоурцеРанге.Ровс.Цоунт &гт;= 2 Онда затамни прву ћелију као опсег Затамни индекс реда као цео број Апплицатион.СцреенУпдатинг = Фалсе Фор РовИндек = СоурцеРанге.Ровс.Цоунт - (СоурцеРанге.Ровс.Цоунт Мод 2) на 1 корак -2 Поставите ФирстЦелл = СоурцеРанге.Целлс(РовИндек, 1) ФирстЦелл.ЕнтиреРов.Делете Нект Апплицатион.СцреенУпдатинг Енд Иф Енд СубКако избрисати сваки други ред у Екцел-у користећи макро
И уметните макро у свој радни лист на уобичајен начин преко Висуал Басиц Едитор-а:
- Притисните Алт + Ф11 да бисте отворили прозор Висуал Басица за апликације.
- На горњој траци менија, кликните на Инсерт &гт; Модуле и налепите горњи макро у Модуле
- Притисните тастер Ф5 да бисте покренули макро.
- Појавиће се дијалог и од вас ће бити затражено да изаберете опсег. Изаберите своју табелу и кликнитеОК:
Готово! Сваки други ред у изабраном опсегу се брише:
Како избрисати сваки Н-ти ред у Екцел-у
За овај задатак ћемо проширити филтрирање техника коју смо користили да уклонимо сваки други ред. Разлика је у формули на којој се заснива филтрирање:
МОД(РОВ()- м, н)Где:
- м је број реда прве ћелије са подацима минус 1
- н је Н-ти ред који желите да избришете
Рецимо да ваши подаци почињу у реду 2 и да желите да избришете сваки трећи ред. Дакле, у вашој формули н је једнако 3, а м је једнако 1 (ред 2 минус 1):
=MOD(ROW() - 1, 3)
Ако су наши подаци почели у ред 3, онда би м било једнако 2 (ред 3 минус 1), и тако даље. Ова исправка је потребна да би се редови узастопно нумерисали, почевши од броја 1.
Оно што формула ради је дељење релативног броја реда са 3 и враћање остатка након дељења. У нашем случају, то даје нулу за сваки трећи ред јер се сваки трећи број дели са 3 без остатка (3,6,9, итд.):
А сада, ви извршите већ познате кораке за филтрирање „0“ редова:
- Изаберите било коју ћелију у табели и кликните на дугме Филтрирај на Подаци
- Филтрирајте колону помоћника да бисте приказали само вредности „0“.
- Изаберите све видљиве редове „0“, кликните десним тастером миша и изаберите Избриши ред из контекстног менија.
- Уклоните филтер иизбришите колону Хелпер.
На сличан начин можете да избришете сваки 4., 5. или било који други Н-ти ред у Екцел-у.
Савет. У случају да треба да уклоните редове са небитним подацима, следећи водич ће вам помоћи: Како да избришете редове на основу вредности ћелије.
Хвала вам што сте читали и надам се да ћемо се следеће недеље поново видети на нашем блогу .