У меня небольшая неисправность в этой строке кодов.Я намерен, чтобы этот код зацикливался и удалял строки, в которых либо ячейки в столбце 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