Оставить строки по условию

Старая форма входа

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

Оставить строки по условию (Макросы/Sub)

Alek19

Дата: Понедельник, 11.11.2019, 08:15 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2013

нужен макрос который оставляет только те строки, которые находятся после строк, где есть определенный знак

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

Ответить

K-SerJC

Дата: Понедельник, 11.11.2019, 10:29 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

Замечаний: 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]