Question

我尝试运行以下脚本以删除excel表中的空行。我收到错误：＆＃34;无法在重叠选择上使用命令＆＃34; 可能是什么原因？

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

请尝试以下操作。

注意：如果需要空格，如果有2列等，请将> 0更改为> 1

<强>代码：

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

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

Excel VBA：无法在重叠选择上使用命令

1 个答案: