Excel VBA: невозможно использовать команду на перекрывающихся выборках

Question

Я пытаюсь запустить следующий скрипт, чтобы удалить пустые строки в таблице Excel.Я получаю сообщение об ошибке: «Не удается использовать команду на перекрывающихся выборках». В чем может быть причина?

Dim Rng2 As Range
On Error Resume Next
Set Rng2 = Range("Table2").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not Rng2 Is Nothing Then
     Rng2.Delete Shift:=xlUp
End If

Answer 1

Попробуйте следующее.

Примечание. Измените > 0 на > 1, если необходимо пропустить, если 2 столбца и т. Д.

---

Код:

Option Explicit

Public Sub test()
    Dim Rng2 As Range
    With ActiveSheet
        For Each Rng2 In .Range("Table2").Rows
            If Application.WorksheetFunction.CountBlank(Rng2) > 0 Then Rng2.Delete
        Next Rng2
    End With
End Sub

При использовании отфильтрованных таблиц вам может понадобиться отфильтровать, а затем удалить