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