Проверка строк на наличие в них данных - VBA

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

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

Здравствуйте, скажите, пожалуйста можно ли такое подредактировать макрос, чтобы он удалял строки, если я выделяю любую строку на листе, а в ней не заполнен столбцы A или B, то он перемещает на последнюю строку, в которой заполнены эти столбцы, а все данные в этих строках стирает. Сейчас макрос просто удаляет пустые строки, нужно добавить условие, что если есть в столбце A данные, но нет в B он их удаляет. тема на другом сайте - http://www.planetaexcel.ru/forum/ind...#message745742

Решение задачи: «Проверка строк на наличие в них данных»

textual
Листинг программы
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim strOk&, strOkA&, strOkB&
    strOkA = Evaluate("=LOOKUP(2,1/LEN(A:A),ROW(A:A))")
    strOkB = Evaluate("=LOOKUP(2,1/(LEN(B:B)),ROW(B:B))")
    strOk = IIf(strOkA < strOkB, strOkA, strOkB)
    If Target.Row > strOk Then
        Rows((strOk + 1) & ":" & Target.Row).Delete Shift:=xlUp
    End If
End Sub

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


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

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

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