Excel VBA删除后删除空行

Question

我有这个代码将整行剪切并粘贴到另一张纸上，我怎样才能删除现在出现在第一张切割原始行的纸张上的空白行。

Set ASR = ActiveWorkbook.Sheets("Main")
Set LS = ActiveWorkbook.Sheets("Exclusions")

ASR.cells(i, "C").EntireRow.Cut Destination:=LS.Range("A" & LS.Rows.Count).End(xlUp).Offset(1)

我希望我从这个http://blog.garethjmsaunders.co.uk/2015/03/22/managing-overlay-icons-for-dropbox-and-tortoisesvn-and-tortoisegit/获得的这行代码会删除空行，但它不起作用

ASR.cells.Delete Shift:=xlUp

Answer 1

ASR.cells(i, "C").EntireRow.delete