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

Вход

Регистрация

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

 

= Мир MS Excel/Оставить строки по условию - Мир MS Excel

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

Excel 2013
нужен макрос который оставляет только те строки, которые находятся после строк, где есть определенный знак
К сообщению приложен файл: 7303331.xlsx(16.2 Kb)
 
Ответить
Сообщениенужен макрос который оставляет только те строки, которые находятся после строк, где есть определенный знак

Автор - Alek19
Дата добавления - 11.11.2019 в 08:15
K-SerJC Дата: Понедельник, 11.11.2019, 10:29 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 479
Репутация: 84 ±
Замечаний: 0% ±

Excel 2013
так?

[vba]
Код
Sub tydysch()
Dim lr, x As Collection, f, k
With ThisWorkbook.Sheets(1)
    lr = .Cells(Rows.Count, 1).End(xlUp).Row
    Set x = New Collection
    For f = 1 To lr
        If .Cells(f, 1).Value Like "*№*" Then x.Add f + 2
    Next f
    For f = lr To 1 Step -1
        If x.Count > 0 Then
            If f - x.Item(x.Count) > 0 Then
                .Rows(x.Item(x.Count) & ":" & f).Delete shift:=xlUp
            End If
            f = x.Item(x.Count) - 1
            x.Remove (x.Count)
        Else
            .Rows(1 & ":" & f).Delete shift:=xlUp
        End If
    Next f
End With
End Sub
[/vba]
К сообщению приложен файл: Alek19.xlsm(28.3 Kb)


Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Понедельник, 11.11.2019, 10:30
 
Ответить
Сообщениетак?

[vba]
Код
Sub tydysch()
Dim lr, x As Collection, f, k
With ThisWorkbook.Sheets(1)
    lr = .Cells(Rows.Count, 1).End(xlUp).Row
    Set x = New Collection
    For f = 1 To lr
        If .Cells(f, 1).Value Like "*№*" Then x.Add f + 2
    Next f
    For f = lr To 1 Step -1
        If x.Count > 0 Then
            If f - x.Item(x.Count) > 0 Then
                .Rows(x.Item(x.Count) & ":" & f).Delete shift:=xlUp
            End If
            f = x.Item(x.Count) - 1
            x.Remove (x.Count)
        Else
            .Rows(1 & ":" & f).Delete shift:=xlUp
        End If
    Next f
End With
End Sub
[/vba]

Автор - K-SerJC
Дата добавления - 11.11.2019 в 10:29
Alek19 Дата: Понедельник, 11.11.2019, 11:10 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
K-SerJC, спасибо большое!

А если оставить только строки, где есть определенный знак


№138628
№138627
№138626
№138625
№138624
№138623
 
Ответить
СообщениеK-SerJC, спасибо большое!

А если оставить только строки, где есть определенный знак


№138628
№138627
№138626
№138625
№138624
№138623

Автор - Alek19
Дата добавления - 11.11.2019 в 11:10
Kuzmich Дата: Понедельник, 11.11.2019, 12:05 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 432
Репутация: 88 ±
Замечаний: 0% ±

Excel 2003
 
Ответить
СообщениеКросс https://www.planetaexcel.ru/forum....sloviyu

Автор - Kuzmich
Дата добавления - 11.11.2019 в 12:05
Alek19 Дата: Понедельник, 11.11.2019, 12:24 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, спасибо
 
Ответить
СообщениеKuzmich, спасибо

Автор - Alek19
Дата добавления - 11.11.2019 в 12:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оставить строки по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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