Гледайте видео - Поставете празен ред след всеки ред в Excel
Хората, които работят с големи набори от данни, често се нуждаят от прости неща, като например вмъкване/изтриване на редове или колони.
Въпреки че вече има много различни (и прости) начини за добавяне на редове в Excel, когато става въпрос за вмъкване на празен ред след всеки друг ред (или всеки трети или четвърти ред), нещата стават малко по -сложни.
Поставете празен ред след всеки друг ред
В този урок ще ви покажа някои наистина прости начини да вмъкнете празен ред след всеки ред в съществуващия набор от данни (или всеки n -ти ред).
Тъй като няма директен начин за добавяне на редове между редовете, методът, обхванат в тази статия, е заобиколно решение, за да се случи това. И ако се чувствате добре с VBA, тогава можете да направите това с едно щракване.
Използване на помощната колона и функцията за сортиране
Да предположим, че имате набор от данни, както е показано по -долу и искате да вмъкнете празно място между съществуващите редове.
По -долу са стъпките за вмъкване на празни редове между съществуващите редове:
- Вмъкнете празна колона вляво от набора от данни. За да направите това, щракнете с десния бутон върху заглавката на колоната в най-лявата колона и щракнете върху Вмъкване.
- Въведете текста „HelperColumn“ в A1 (можете да използвате всеки текст, който искате)
- Въведете 1 в клетка A2 и 2 в клетка A3.
- Изберете двете клетки и поставете курсора в долния десен ъгъл на селекцията. Когато курсорът се промени на икона плюс, щракнете двукратно върху нея. Това ще запълни цялата колона с нарастващи числа
- Отидете до последната попълнена клетка в помощната колона и след това изберете клетката под нея.
- Въведете 1 в тази клетка и 2 в клетката под нея
- Изберете двете клетки и поставете курсора в долния десен ъгъл на селекцията.
- Когато курсорът се промени на икона плюс, щракнете и плъзнете надолу. Това ще запълни поредица от числа (точно както получихме в стъпка 3). Уверете се, че получавате повече числа от това, което имате в набора от данни. Например, ако има 10 записа в набора от данни, не забравяйте да попълните поне 10 клетки в тази стъпка. След като приключите, вашият набор от данни ще изглежда, както е показано по -долу.
- Изберете целия набор от данни (включително всички клетки в помощната колона).
- Щракнете върху раздела Данни
- Кликнете върху опцията Сортиране
- В диалоговия прозорец Сортиране използвайте следните настройки:
- Сортиране по: Помощник
- Сортиране по: Стойност на клетката
- Ред: от най -малкия до най -големия
- Щракнете върху OK. Това ще ви даде набора от данни, както е показано по -долу.
- Изтрийте помощната колона.
Ще забележите, че веднага щом щракнете върху OK в диалоговия прозорец Сортиране, той незабавно пренарежда редовете и сега имате празен ред след всеки ред от вашия набор от данни.
В действителност това всъщност не е вмъкване на празен ред. Този метод за сортиране е просто пренареждане на данните чрез поставяне на празни редове под набора от данни между редовете в набора от данни.
Можете също да разширите същата логика до вмъкнете празен ред след всеки два реда или на всеки три реда.
Да предположим, че имате набора от данни, както е показано по -долу и искате да получите празен ред след всеки два реда.
По -долу са описани стъпките за това:
- Вмъкнете празна колона вляво от набора от данни. За да направите това, щракнете с десния бутон върху заглавката на колоната в най-лявата колона и щракнете върху Вмъкване.
- Въведете текста „HelperColumn“ в A1 (можете да използвате всеки текст, който искате)
- Въведете 1 в клетка A2 и 2 в клетка A3.
- Изберете двете клетки и поставете курсора в долния десен ъгъл на селекцията. Когато курсорът се промени на икона плюс, щракнете двукратно върху нея. Това ще запълни цялата колона с нарастващи числа
- Отидете до последната попълнена клетка в помощната колона и след това изберете клетката под нея.
- Въведете 2 в тази клетка и 4 в клетката под нея. Използваме числа, кратни на 2, тъй като искаме един празен ред след всеки два реда.
- Изберете двете клетки и поставете курсора в долния десен ъгъл на селекцията.
- Когато курсорът се промени на икона плюс, щракнете и плъзнете надолу. Това ще запълни поредица от числа (точно както получихме в стъпка 3). Уверете се, че получавате число, по -голямо от това, което имате в набора от данни. Например, ако има 10 записа в набора от данни, не забравяйте да получите поне до числото 10.
- Изберете целия набор от данни (включително всички клетки в помощната колона).
- Щракнете върху раздела Данни
- Кликнете върху опцията Сортиране
- В диалоговия прозорец Сортиране използвайте следните настройки:
- Сортиране по: Помощник
- Сортиране по: Стойност на клетката
- Ред: от най -малкия до най -големия
- Щракнете върху OK. Това ще ви даде окончателния набор от данни, както е показано по -долу (с празен ред след всеки втори ред от набора от данни)
- Изтрийте помощната колона.
По същия начин, в случай че искате да вмъкнете празен ред след всеки трети ред, използвайте числото 3, 6, 9 и така нататък в Стъпка 5.
Използване на прост VBA код
Макар че имате нужда от много заобиколни решения, за да вмъкнете алтернативни празни редове в Excel, с VBA всичко това е парче торта.
С прост VBA код всичко, което трябва да направите, е да изберете набора от данни, в който искате да вмъкнете празен ред след всеки ред, и просто да стартирате кода (отнема едно щракване).
По -долу е кодът VBA, който ще вмъкне празен ред след всеки ред в набора от данни:
Sub InsertAlternateRows () 'Този код ще вмъкне ред след всеки ред в селекцията' Този код е създаден от Sumit Bansal от trumpexcel.com Dim rng като диапазон Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Изберете Next i End Sub
Горният код отчита общия брой редове в селекцията и използва цикъл For Next за циклично преминаване през всеки ред и вмъкване на празен ред след всеки съществуващ ред в набора от данни.
Ето стъпките за поставяне на този VBA код в VB редактора в Excel:
- Копирайте горния код
- Отидете в раздела Developer и кликнете върху опцията Visual Basic. Това ще отвори VB Editor. Можете също да използвате клавишната комбинация ALT + F11
- В редактора на VB щракнете с десния бутон върху всеки обект в Project Explorer
- Задръжте курсора на мишката върху опцията Вмъкване и след това щракнете върху Модул. Това ще постави нов модул
- В прозореца Код на модула поставете горния код.
След като имате кода в VB Editor, сега можете да използвате този код, за да вмъкнете празни редове след всеки друг ред в набора от данни.
Ето стъпките за използване на кода за вмъкване на празни редове след всеки ред:
- Изберете целия набор от данни (с изключение на заглавния ред)
- Щракнете върху раздела Разработчик (в случай, че нямате раздел Разработчик, щракнете тук, за да научите как да го получите)
- Кликнете върху опцията „Макроси“
- В диалоговия прозорец Макрос изберете макроса - „InsertAlternateRows“
- Щракнете върху Изпълни
Това е!
Горните стъпки незабавно биха вмъкнали редуващи се празни редове в набора от данни.
Има много различни начини за стартиране на макрос в Excel. Например, ако трябва да правите това доста често, можете да добавите този макрос към лентата с инструменти за бърз достъп, така че да можете да го стартирате с едно щракване.
Можете да прочетете повече за различните начини за стартиране на макроси тук.
В случай, че искате да вмъкнете празен ред след всеки втори ред, можете да използвате кода по -долу:
Sub InsertBlankRowAfterEvery2ndRow () 'Този код ще вмъкне ред след всеки втори ред в селекцията' Този код е създаден от Sumit Bansal от trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Изберете Next i End Sub
Надявам се, че сте намерили този урок за полезен.
