Проверяет ячейки столбцов, если пустые то удаляет сроку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы