Excel: изтрийте всеки втори ред - възможно ли е?
Свързани Видеоклипове: (Може 2024).
С Microsoft Excel можете автоматично да изтриете всеки втори ред. В този практичен съвет ще обясним как става това.
Предварително: Показване на инструменти за програмисти за изтриване на всеки два реда
- Щракнете върху бутона Office горе вляво, след което изберете "Опции на Excel".
- Отидете на „Често използвани“. Под „Най-често срещаните опции при работа с Excel“ активирайте опцията „Покажи раздела за програмисти в лентата“.
- Потвърдете промяната с „Запазване“.
Excel: Изтрийте всеки втори ред с програмен код
Microsoft пусна за целта програмен код, който можете да използвате. Продължете както следва:
- Отворете файла, в който се намират съответните данни от таблицата.
- Сега кликнете върху „Инструменти за програмисти“ и под „Код“ отидете на „Visual Basic“.
- Сега се отваря Visual Basic Editor. Тук кликнете върху "Вмъкване" и там на "Модул".
- Копирайте следния код (без кавичките) в модула: "Sub Delete_Every_Other_Row ()" Променливи на измеренията. Y = False "Променете това на True, ако искате да изтриете редове 1, 3, 5 и т. Н. I = 1 Задайте xRng = Selection 'Loop веднъж за всеки ред в селекцията. За xCounter = 1 За xRng.Rows.Count' Ако Y е вярно, тогава ... Ако Y = True тогава '... изтрийте цял ред клетки. xRng.Cells (I) .EntireRow.Delete 'В противен случай ... Else' ... увеличение I по един, за да можем да преминем по диапазон. I = I + 1 End Ако 'Ако Y е вярно, направете го невярно; ако Y е грешно, направете го вярно. Y = Не Y Следващ xCounter End Sub "
- Сега се върнете към вашия Excel файл и маркирайте колоните, от които всеки втори ред трябва да бъде изтрит.
- След това кликнете върху „Макроси“ под „Разработчик“ в областта „Код“. Там ще видите макроса "Delete_Every_Other_Row", който стартирате с "Execute".
Този практически съвет беше реализиран с Excel 2007. С Excel можете също да изчислите сложната лихва или три ставка.