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

  • Деле Ово
Michael Brown

Овај кратки водич објашњава како да избришете сваки други ред у Екцел-у филтрирањем или помоћу ВБА кода. Такође ћете научити како да уклоните сваки 3., 4. или било који други Н-ти ред.

Постоје многе ситуације када ћете можда морати да избришете алтернативне редове у Екцел радним листовима. На пример, можда ћете желети да задржите податке парне недеље (редови 2, 4, 6, 8, итд.) и да преместите све непарне недеље (редови 3, 5, 7 итд.) на други лист.

Генерално, брисање сваког другог реда у Екцел-у своди се на избор алтернативних редова. Када су редови изабрани, довољан је само један потез на дугмету Делете . Даље у овом чланку, научићете неколико техника за брзо бирање и брисање сваког другог или сваког Н-ог реда у Екцел-у.

    Како да обришете сваки други ред у Екцел-у филтрирањем

    У суштини, уобичајен начин за брисање сваког другог реда у Екцел-у је следећи: прво филтрирате алтернативне редове, затим их изаберете и избришете све одједном. Детаљни кораци следе у наставку:

    1. У празну колону поред оригиналних података унесите низ нула и јединица. То можете брзо да урадите тако што ћете откуцати 0 у прву ћелију и 1 у другу ћелију, а затим копирати прве две ћелије и налепити их низ колону до последње ћелије са подацима.

      Алтернативно, можете користити ову формулу:

      =MOD(ROW(),2)

      Логика формуле је врло једноставна: функција РОВ враћа тренутни број реда, функција МОДдели га са 2 и враћа остатак заокружен на цео број.

      Као резултат, имате 0 у свим парним редовима (јер су подједнако подељени са 2 без остатка) и 1 у свим непарним редовима:

    2. У зависности од тога да ли желите да избришете парне или непарне редове, филтрирајте јединице или нуле.

      Да бисте то урадили, изаберите било коју ћелију у колони Помоћник, идите на картицу Подаци &гт; Сортирај и филтрирај групу и кликните на Филтер дугме. Стрелице падајућег филтера ће се појавити у свим ћелијама заглавља. Кликнете на дугме са стрелицом у колони Помоћник и означите једно од поља за потврду:

      • 0 за брисање парних редова
      • 1 за брисање непарних редова

      У овом примеру ћемо уклонити редове са вредностима „0“, па ћемо их филтрирати:

    3. Сада када су сви редови „1“ сакривени, изаберите све видљиве "0" редове, кликните десним тастером миша на избор и кликните на Избриши ред :

    4. Претходни корак вам је оставио празну табелу , али не брините, редови „1“ су још увек ту. Да бисте их поново учинили видљивим, једноставно уклоните аутоматски филтер тако што ћете поново кликнути на дугме Филтер :

    5. Формула у колони Ц се поново израчунава за преостале редове, али ти више не треба. Сада можете безбедно да избришете колону Хелпер:

    Као резултат, на нашем радном листу су остале само парне недеље, а непарне недеље су нестале!

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

    Како да избришете алтернативне редове у Екцел-у помоћу ВБА

    Ако нисте вољни да губите време на тривијални задатак као што је брисање сваког другог реда у вашим Екцел радним листовима, следећи ВБА макро може да аутоматизује процес за вас:

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

    Како избрисати сваки други ред у Екцел-у користећи макро

    И уметните макро у свој радни лист на уобичајен начин преко Висуал Басиц Едитор-а:

    1. Притисните Алт + Ф11 да бисте отворили прозор Висуал Басица за апликације.
    2. На горњој траци менија, кликните на Инсерт &гт; Модуле и налепите горњи макро у Модуле
    3. Притисните тастер Ф5 да бисте покренули макро.
    4. Појавиће се дијалог и од вас ће бити затражено да изаберете опсег. Изаберите своју табелу и кликнитеОК:

    Готово! Сваки други ред у изабраном опсегу се брише:

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

    За овај задатак ћемо проширити филтрирање техника коју смо користили да уклонимо сваки други ред. Разлика је у формули на којој се заснива филтрирање:

    МОД(РОВ()- м, н)

    Где:

    • м је број реда прве ћелије са подацима минус 1
    • н је Н-ти ред који желите да избришете

    Рецимо да ваши подаци почињу у реду 2 и да желите да избришете сваки трећи ред. Дакле, у вашој формули н је једнако 3, а м је једнако 1 (ред 2 минус 1):

    =MOD(ROW() - 1, 3)

    Ако су наши подаци почели у ред 3, онда би м било једнако 2 (ред 3 минус 1), и тако даље. Ова исправка је потребна да би се редови узастопно нумерисали, почевши од броја 1.

    Оно што формула ради је дељење релативног броја реда са 3 и враћање остатка након дељења. У нашем случају, то даје нулу за сваки трећи ред јер се сваки трећи број дели са 3 без остатка (3,6,9, итд.):

    А сада, ви извршите већ познате кораке за филтрирање „0“ редова:

    1. Изаберите било коју ћелију у табели и кликните на дугме Филтрирај на Подаци
    2. Филтрирајте колону помоћника да бисте приказали само вредности „0“.
    3. Изаберите све видљиве редове „0“, кликните десним тастером миша и изаберите Избриши ред из контекстног менија.
    4. Уклоните филтер иизбришите колону Хелпер.

    На сличан начин можете да избришете сваки 4., 5. или било који други Н-ти ред у Екцел-у.

    Савет. У случају да треба да уклоните редове са небитним подацима, следећи водич ће вам помоћи: Како да избришете редове на основу вредности ћелије.

    Хвала вам што сте читали и надам се да ћемо се следеће недеље поново видети на нашем блогу .

    Мајкл Браун је посвећен технолошки ентузијаста са страшћу за поједностављење сложених процеса помоћу софтверских алата. Са више од деценије искуства у технолошкој индустрији, усавршио је своје вештине у Мицрософт Екцел-у и Оутлоок-у, као и у Гоогле табеле и документима. Мајклов блог посвећен је дељењу свог знања и стручности са другима, пружајући једноставне савете и упутства за побољшање продуктивности и ефикасности. Без обзира да ли сте искусан професионалац или почетник, Мајклов блог нуди вредне увиде и практичне савете како да на најбољи начин искористите ове основне софтверске алате.