Excel VBA - 删除表中的空行

Question

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

下面的脚本执行除删除部分以外的所有操作,提示a __CODE__.

任何想法如何解决这个问题？谢谢

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