Проверяет ячейки столбцов, если пустые то удаляет сроку - VBA
Формулировка задачи:
Добрый день!
Имеется excel файл ниже напечатанного формата:
Столбец "A"
- артикул;Начиная со столбца "B" и до последнего существующего
- свойства артикула; Пример файла во вложении, в нем представлена страница"Исходник"
и страница"Необходимый результат"
. Пример структуры страницы"Исходник"
печатаю ниже: 1. Артикул 1 | Свойства артикула 1 | Пустая ячейка | Пустая ячейка | Пустая ячейка 2. Артикул 2 | Пустая ячейка | Пустая ячейка | Свойства артикула 2 | Пустая ячейка 3. Артикул 1 | Пустая ячейка | Пустая ячейка | Свойства артикула 1 | Пустая ячейка 4. Артикул 2 | Пустая ячейка | Пустая ячейка | Пустая ячейка | Свойства артикула 2 5. Артикул 1 | Пустая ячейка | Пустая ячейка | Пустая ячейка | Пустая ячейка 6. Артикул 3 | Свойства артикула 3 | Пустая ячейка | Пустая ячейка | Пустая ячейка 7. Артикул 3 | Пустая ячейка | Пустая ячейка | Пустая ячейка | Пустая ячейка - Напечатайте пожалуйста макрос который проверит свойства артикулов (ячейки идущие после артикула в последующих столбцах) и при условии, что значения артикула не найдено, - удалит строку в которой отсутствует свойства артикула. Исходя из структуры страницы"Исходник"
, результатом работы макроса должно бытьудаление строк 5 и 7
.Решение задачи: «Проверяет ячейки столбцов, если пустые то удаляет сроку»
textual
Листинг программы
- Private Sub Test()
- Application.ScreenUpdating = False
- With ActiveSheet.UsedRange
- For iRow& = .Rows.Count + .Row - 1 To .Row Step -1
- If Application.CountA(.Rows(iRow&)) < 2 Then .Rows(iRow&).Delete
- Next
- End With
- Application.ScreenUpdating = True
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
