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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для удаления строк - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для удаления строк (Формулы/Formulas)
Макрос для удаления строк
dimsn0978 Дата: Суббота, 31.08.2019, 18:30 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день!
подскажите пожалуйста, как написать макрос для удаления ненужных строк (около 700) в файле по критерию что в нужной ячейке стоит одно и то же число, вот кусок, необходимо чтобы остались строки с значением 1000 во втором столбце.

16:05:01 100 -17.7 -11.181 42.367 2500.000 -359.607 -9999 0 -5.581 31.346
16:06:12 1000 -17.7 -12.617 8.265 2500.000 -653.704 -9999 0 -7.889 7.304
16:07:21 20000 -17.6 -7.528 8.107 1526.924 -1922.019 2.2188E+02 4.414 -5.987 5.904
16:10:01 100 -17.6 -11.129 42.362 2500.000 -359.395 -9999 0 -5.553 31.326
16:11:12 1000 -17.6 -12.530 8.244 2500.000 -654.084 -9999 0 -7.833 7.272
16:12:21 20000 -17.5 -7.446 8.053 1524.901 -1925.395 2.2394E+02 4.378 -5.918 5.854
 
Ответить
СообщениеДобрый день!
подскажите пожалуйста, как написать макрос для удаления ненужных строк (около 700) в файле по критерию что в нужной ячейке стоит одно и то же число, вот кусок, необходимо чтобы остались строки с значением 1000 во втором столбце.

16:05:01 100 -17.7 -11.181 42.367 2500.000 -359.607 -9999 0 -5.581 31.346
16:06:12 1000 -17.7 -12.617 8.265 2500.000 -653.704 -9999 0 -7.889 7.304
16:07:21 20000 -17.6 -7.528 8.107 1526.924 -1922.019 2.2188E+02 4.414 -5.987 5.904
16:10:01 100 -17.6 -11.129 42.362 2500.000 -359.395 -9999 0 -5.553 31.326
16:11:12 1000 -17.6 -12.530 8.244 2500.000 -654.084 -9999 0 -7.833 7.272
16:12:21 20000 -17.5 -7.446 8.053 1524.901 -1925.395 2.2394E+02 4.378 -5.918 5.854

Автор - dimsn0978
Дата добавления - 31.08.2019 в 18:30
Pelena Дата: Суббота, 31.08.2019, 18:33 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14473
Репутация: 3172 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Посмотрите готовое решение Удаление строк по критерию (там несколько вариантов)
или приложите файл с примером


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Посмотрите готовое решение Удаление строк по критерию (там несколько вариантов)
или приложите файл с примером

Автор - Pelena
Дата добавления - 31.08.2019 в 18:33
dimsn0978 Дата: Суббота, 31.08.2019, 18:38 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Вот такие файлы, их очень много, помогите пожалуйста!
К сообщению приложен файл: 19_08_02-0.12mm.csv(20.8 Kb)
 
Ответить
СообщениеPelena, Вот такие файлы, их очень много, помогите пожалуйста!

Автор - dimsn0978
Дата добавления - 31.08.2019 в 18:38
Pelena Дата: Суббота, 31.08.2019, 18:59 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 14473
Репутация: 3172 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Собственно, самый первый пример по ссылке для Вас подойдёт
[vba]
Код
Sub example_01_1()
    Dim i As Long, r As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        With .Range("C7", .Cells(.Rows.Count, 3).End(xlUp))
            Set r = .Find("1000", lookat:=xlWhole)
            If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Delete
        End With
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеСобственно, самый первый пример по ссылке для Вас подойдёт
[vba]
Код
Sub example_01_1()
    Dim i As Long, r As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        With .Range("C7", .Cells(.Rows.Count, 3).End(xlUp))
            Set r = .Find("1000", lookat:=xlWhole)
            If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Delete
        End With
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Pelena
Дата добавления - 31.08.2019 в 18:59
dimsn0978 Дата: Суббота, 31.08.2019, 19:01 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, ООо сработало пока что на одном!!!!!!!
 
Ответить
СообщениеPelena, ООо сработало пока что на одном!!!!!!!

Автор - dimsn0978
Дата добавления - 31.08.2019 в 19:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для удаления строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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