Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Необходимо удалить из столбцов А-К нечетные строки (Макросы/Sub)
Необходимо удалить из столбцов А-К нечетные строки
Admaster Дата: Четверг, 26.03.2020, 19:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Помогите плз необходим макрос, который удаляет из любой таблицы с колонками A-K и начинающейся с A1 все нечетные строки
К сообщению приложен файл: 0081927.xlsx(9.2 Kb)


Сообщение отредактировал Admaster - Четверг, 26.03.2020, 19:49
 
Ответить
СообщениеПомогите плз необходим макрос, который удаляет из любой таблицы с колонками A-K и начинающейся с A1 все нечетные строки

Автор - Admaster
Дата добавления - 26.03.2020 в 19:44
Dmitriy_37 Дата: Четверг, 26.03.2020, 20:13 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 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]
 
Ответить
Сообщение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]

Автор - Dmitriy_37
Дата добавления - 26.03.2020 в 20:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Необходимо удалить из столбцов А-К нечетные строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!