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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строк из таблицы по заданному условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк из таблицы по заданному условию (Макросы/Sub)
Удаление строк из таблицы по заданному условию
Monzya Дата: Среда, 22.03.2017, 07:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Задача: есть файл, в который загружаются таблицы из других документов Excel, находящихся в папке. Структура у всех файлов одинаковая. Количество строк в итоговом файле может быть разное. Нужно в этом файле удалять все строки, где значение последней ячейки (ZADOL) больше или равно 5000. Пример итогового файла прилагаю.

Очень прошу помощи
 
Ответить
СообщениеЗадача: есть файл, в который загружаются таблицы из других документов Excel, находящихся в папке. Структура у всех файлов одинаковая. Количество строк в итоговом файле может быть разное. Нужно в этом файле удалять все строки, где значение последней ячейки (ZADOL) больше или равно 5000. Пример итогового файла прилагаю.

Очень прошу помощи
Автор - Monzya
Дата добавления - 22.03.2017 в 07:24
китин Дата: Среда, 22.03.2017, 07:40 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Размер файла проверьте не приложился

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеРазмер файла проверьте не приложился
Автор - китин
Дата добавления - 22.03.2017 в 07:40
Monzya Дата: Среда, 22.03.2017, 07:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Прошу прощения
К сообщению приложен файл: MergeWorkbooks.xls (96.0 Kb)
 
Ответить
СообщениеПрошу прощения
Автор - Monzya
Дата добавления - 22.03.2017 в 07:44
китин Дата: Среда, 22.03.2017, 08:03 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
так надо?
[vba]
Код
Sub udal()
  Dim pos&
  pos = Cells(Rows.Count, 1).End(xlUp).Row
    For i = pos To 1 Step -1
       If Range("J" & i).Value >= 5000 Then
        Rows(i).Delete Shift:=xlUp
       End If
     Next
     
End Sub
[/vba]
там кнопочка Удалить
К сообщению приложен файл: MergeWorkbooks-.xlsm (49.1 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 22.03.2017, 08:09
 
Ответить
Сообщениетак надо?
[vba]
Код
Sub udal()
  Dim pos&
  pos = Cells(Rows.Count, 1).End(xlUp).Row
    For i = pos To 1 Step -1
       If Range("J" & i).Value >= 5000 Then
        Rows(i).Delete Shift:=xlUp
       End If
     Next
     
End Sub
[/vba]
там кнопочка Удалить
Автор - китин
Дата добавления - 22.03.2017 в 08:03
Monzya Дата: Среда, 22.03.2017, 08:31 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да, именно так. Огромное-огромное спасибо hands
 
Ответить
СообщениеДа, именно так. Огромное-огромное спасибо hands
Автор - Monzya
Дата добавления - 22.03.2017 в 08:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк из таблицы по заданному условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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