excel - 删除表中的空白行

Question

我正在尝试运行一个宏，该宏选择表列中的空白单元格并删除整行。

下面的脚本执行了除删除部分之外的所有操作，这会提示以下错误:

run-time error 1004 - "Delete method of Range class failed"

我使用了以下代码:

Sub test()
Range("Table1[[New]]").Activate
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub

Answer 1

问得好!如果没有表格，.EntireRow.Delete 始终有效，但在表格内它看起来却不起作用。

这有效:

Sub Test()
  Dim Rng As Range
  On Error Resume Next
  Set Rng = Range("Table1[[New]]").SpecialCells(xlCellTypeBlanks)
  On Error Goto 0
  If Not Rng Is Nothing Then
    Rng.Delete Shift:=xlUp
  End If
End Sub