Удаление строк если не подходит по условию - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д