如何删除vba中的空白行表格行

我想知道如何使用vba从表中删除空行。 任何帮助，将不胜感激！ 我现在的代码将会创build表格，并且会select我需要删除的范围。 但我不知道如何去实际删除我需要的行。 有两个不同的表我需要做这个。

提前致谢！

Worksheets.Item("Report").Range("H1:L50").Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$H$1:$L$150"), ,xlYes).Name = _ "Table1" Range("Table1").Activate Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete 

Answer 1

在将范围转换为表格之前，我将删除空行。

 Dim Target As Range Set Target = Range("$H$1:$L$150") Target.SpecialCells(xlCellTypeBlanks).Delete xlShiftUp ActiveSheet.ListObjects.Add(xlSrcRange, Target, , xlYes).Name = "Table1"