Удаление строк если не подходит по условию - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго! Появилась задачка: Имеется диапазон ячеек в таблице Excel в одном столбце (например, А1-А19568). В каждой ячейке этого диапазона есть шестнадцатизначное число. Есть функция:
Подскажите, пожалуйста, как удалить все строки с ячейками значение которых false.

Решение задачи: «Удаление строк если не подходит по условию»

textual
Листинг программы
Private Sub Test()
    Application.ScreenUpdating = False
    
    Dim iArr, iRow&, tmp$, c$: c = String(16, "0")
    
    iArr = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value
    For iRow = UBound(iArr, 1) To 1 Step -1
        tmp = Format(iArr(iRow, 1), c)
        If Not Luna2(tmp) Then Rows(iRow).Delete
    Next
    
    Application.ScreenUpdating = True
End Sub

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


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

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

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