VBA Do Loop Until - удаление лишних строк

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Do Loop Until - удаление лишних строк (Макросы/Sub)

Spirtuoz

Дата: Вторник, 05.01.2021, 16:19 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Добрый день.

Прикрепляю файл с примером. Написанный макрос должен удалять строки между 10 строкой и строкой "*Решение о допуске к реализации:" таким образом, чтобы количество строк между данными строками составляло 9. В примере необходимо удалить лишние строки со значениями 22 и 23 для получения результата в 9 строк. Однако таких строк может быть добавлено сколько угодно. Поэтому нужно удалять строки после 11 (строка 11 никогда не удаляется) до тех пор, пока разница между 10 строкой и строкой "*Решение о допуске к реализации:" составляла бы 9. Пробовал указанный макрос, но он удаляет все после строки 11 и зависает.

Подскажите, пожалуйста, в чем проблема. Буду благодарен за ответ.

Sub udalenie_strok()
Dim str1 As Integer, str2 As Integer, diff As Integer

str1 = Sheets("Акт (мн.)").Range("A10:P10").Find("Наименование товара, НД").Row
str2 = Sheets("Акт (мн.)").Range("A10:A22").Find("*Решение о допуске к реализации:").Row
diff = str2 - str1 - 1
Do
If diff <> 9 Then
Sheets("Акт (мн.)").Cells(10 + 2, 1).EntireRow.Delete
End If
Loop Until diff = 9
End Sub

К сообщению приложен файл: 4405678.xlsm (15.9 Kb)

Ответить

bmv98rus

Дата: Вторник, 05.01.2021, 17:20 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

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

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

Excel 2013/2016

Цитата Spirtuoz, 05.01.2021 в 16:19, в сообщении № 1 ()

и зависает.

Подскажите, пожалуйста, в чем проблема. Буду благодарен за ответ.

лн не зависает а зацикливается. Diff неизменно на протяжении всех циклов? но и цикл не нужен. нужно сразу удалить ненужные строки.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Pelena

Дата: Вторник, 05.01.2021, 17:35 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19177

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

Замечаний: ±

Excel 365 & Mac Excel

Spirtuoz, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

doober

Дата: Вторник, 05.01.2021, 17:43 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

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

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

Excel 2010

Попробуйте так[vba]

Код

Sub udalenie_strok()
    Dim str1 As Long, str2 As Long, diff As Long
    str1 = Sheets("Акт (мн.)").Columns("A:P").Find("Наименование товара, НД").Row
    str2 = Sheets("Акт (мн.)").Columns("A:A").Find("*Решение о допуске к реализации:").Row
    diff = str2 - str1 - 10
    If diff > 0 Then
        Sheets("Акт (мн.)").Rows("20:" & (19 + diff)).Delete
    End If
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Do Loop Until - удаление лишних строк (Макросы/Sub)

Страница 1 из 1
1