Как бързо да изтриете всеки друг ред в Excel?
Ако искате бързо да изтриете всеки друг ред или колона в Excel, основната точка е как можете бързо да изберете всеки друг ред или колона първо и след това да приложите операцията за изтриване към тях. И тази статия ще ви покаже някои трудни неща за това как първо да изберете всеки друг ред или колона и след това да ги изтриете бързо.
Изтрийте всеки друг ред в Excel с командата Filter
Изтрийте всеки друг ред в Excel с VBA код
Изтрийте всеки друг ред или колона в Excel с Kutools за Excel
Изтрийте всеки друг ред в Excel с командата Filter
Microsoft Excel филтър командата може да ви помогне бързо да филтрирате всеки друг ред и след това да ги изтриете наведнъж, моля, направете следното:
1. Въведете в празна колона освен оригиналните данни 0,1,0,1…,0,1. В този случай въвеждаме числата в помощна колона C. Вижте следната екранна снимка:
2. Изберете колона C и щракнете върху филтър бутон под Дата раздел. След това щракнете върху бутона със стрелка до C1 и проверете само 0 под Избери всички опция. Вижте екранна снимка:
3. Тогава всички редове с 1 са скрити. Изберете видимите редове с 0 и щракнете върху Начало > Изтрий > Изтриване на редовете на листа за да изтриете тези редове. След това изтрива всеки следващ ред и трябва да щракнете филтър бутон отново, за да се покажат само редовете с 1. Вижте екранни снимки:
 |
 |
 |
4. Най-накрая можете да изтриете помощната колона C, както ви е необходимо.
Изберете всеки друг или n-ти ред, колона и след това ги изтрийте наведнъж
Kutools за Excel's Изберете Интервални редове и колони помощната програма може да ви помогне да намерите и изберете всеки друг или n-ти ред или колона и след това можете да извършите някои операции, както ви е необходимо. Щракнете, за да изтеглите Kutools за Excel!
Изтрийте всеки друг ред в Excel с VBA код
Всъщност макросът VBA също е добър избор за разрешаване на този проблем.
1. Задръжте надолу Друг + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.
2. Кликнете Поставете > Модулии поставете следния макрос в Модули Window.
VBA код: Изтрийте всеки друг ред в селекцията:
Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
Set rng = InputRng.Cells(i, 1)
rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Натиснете F5 ключ за изпълнение на този макрос. След това се появява диалогов прозорец за избор на диапазон. Вижте екранна снимка:
4. След това щракнете OK, всеки друг ред в избрания диапазон от втория ред се изтрива наведнъж, вижте екранната снимка:
 |
|
 |
Изтрийте всеки друг ред или колона в Excel с Kutools за Excel
За начинаещ потребител на Microsoft Excel използването на VBA макрос е малко сложно. The Изберете Интервални редове и колони полезност на Kutools за Excel може да ви помогне бързо да изтриете всеки друг ред.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазона, който искате да изтриете всеки друг ред, и след това приложете тази помощна програма, като щракнете върху Kutools > Изберете > Изберете интервални редове и колони....
2. В Изберете Интервални редове и колони диалогов прозорец, задайте настройките, както е показано на следната екранна снимка, и щракнете OK бутон, за да изберете първо всички останали редове.
3. След това всеки друг ред в селекцията се избира и маркира. Вижте екранна снимка:
4. След това можете бързо да изтриете избраните всеки друг ред, като щракнете върху Начало > Изтрий > Изтриване на редовете на листа за да изтриете всички тези редове. Вижте екранни снимки:
 |
|
 |
Щракнете, за да научите повече за тази функция за избор на интервални редове и колони.
С тази функция можете също да изтриете всеки n-ти ред или колона, както ви е необходимо.
Изтеглете и безплатна пробна версия Kutools за Excel сега!
Демонстрация: Изтрийте всеки друг ред или колона с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
