Необходимо удалить из столбцов А-К нечетные строки

= Мир MS Excel/Необходимо удалить из столбцов А-К нечетные строки - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Дата: Четверг, 26.03.2020, 19:44 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Помогите плз необходим макрос, который удаляет из любой таблицы с колонками A-K и начинающейся с A1 все нечетные строки

К сообщению приложен файл: 0081927.xlsx (9.2 Kb)

Сообщение отредактировал Admaster - Четверг, 26.03.2020, 19:49

Дата: Четверг, 26.03.2020, 20:13 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 4 ±

Замечаний: 0% ±

Excel 2010

Admaster,
[vba]

Код

Sub DeleteRows()
For x = 50 To 1 Step -1
If Range("A" & x) Mod 2 <> 0 Then Range("A" & x).EntireRow.Delete
Next x
End Sub

[/vba]