Excel VBA : Cannot use command on overlapping selections

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

使用过滤表，您可能需要取消过滤然后删除