Удалить строки с пустыми ячейками в столбце A или B - PullRequest
0 голосов
/ 19 сентября 2019

У меня небольшая неисправность в этой строке кодов.Я намерен, чтобы этот код зацикливался и удалял строки, в которых либо ячейки в столбце A, либо ячейки в столбце B пустые. Эти строки содержат имена клиентов в столбце A и номер клиента в столбце B. Теперь, когда я выполняю сценарий,первая строка удаляется нормально, но из следующей строки, которую следует удалить, телефонный номер начинает смешиваться.

Пожалуйста, мне просто нужно, чтобы аргумент был написан таким образом, чтобы он выбирал все строки, которые являются истиннымив соответствии с условиями и удалить, или любая логика, которая может работать, не путая данные Спасибо.

ПРИМЕЧАНИЕ: Я был бы признателен, если бы исправление или обновление было сделано с использованием моего кода ниже.Спасибо

Dim rngRange As Range
    Dim rngUnion As Range
    Dim rngCEll As Range
    Set rngRange = Sheet2.UsedRange.Offset(7)
    For Each rngCEll In rngRange.Columns(1).Cells
        If rngCEll.Value = "" Or rngCEll.Offset(, 1).Value = "" Then
            If rngUnion Is Nothing Then
                Set rngUnion = rngCEll
            Else
                Set rngUnion = Union(rngUnion, rngCEll)
            End If
            End If
    Next rngCEll
    If Not rngUnion Is Nothing Then
        rngUnion.EntireRow.Delete
    End If
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...