Excel - макрос для удаления строки при условии

Макросы можно использовать для различных операций на листах Excel, таких как удаление строк, которые удовлетворяют конкретному заданному условию. Хотя это и не обязательно, некоторые знания концепций программирования и циклов for могут оказаться полезными для написания макроса в Excel. Макросы в Excel для удаления строк, удовлетворяющих определенным условиям, могут быть написаны с нуля или разработаны из свободно доступного кода макроса. Макросы являются очень полезной функцией и могут использоваться для выполнения манипуляций с данными на рабочих листах Excel с большим количеством записей. Макросы в Excel автоматизируют процесс, делая задачу быстрой и безошибочной.

вопрос

Мне нужен макрос для удаления строк, когда ни одна из ячеек в строке не содержит одно из двух чисел " 103526 " или " 103527 "

Число строк является переменным (максимум 150) и количество столбцов тоже переменным (максимум 100).

Любая помощь приветствуется.

Решение

Ваше состояние сбивает меня с толку. Я перефразирую это.

Если строка содержит 103526 или 102527 или оба, НЕ удаляйте.

Если ни одно из двух чисел не находится в строке, удалите.

Теперь, когда вы удаляете строки, сохраняйте копию данных с sheet1 на sheet2, чтобы вы могли копировать данные, если возникла путаница.

Данные приведены на листах 1, попробуйте этот макрос:

 Sub test () Dim j As Integer, k As Integer Dim r As Range, cfind6 As Range, cfind7 As Range Sheet ("sheet1"). Активировать при ошибке Продолжить Далее j = Ячейки (Rows.Count, "A"). Конец (xlUp) .Row для k = j к 1 Шаг -1 Установите cfind6 = Rows (k) .Cells.Find (что: = 103526, lookat: = xlWhole) Установите cfind7 = Rows (k) .Cells.Find (что: = 103527, lookat: = xlWhole) Если cfind6 - это ничто, а cfind7 - это ничто, то строки (k). Удалить следующее