Excel VBA删除后删除空白行

我有这个代码将整行切割并粘贴到另一个表，我怎么能删除现在出现在原始行被切割的第一张纸上的空白行。Excel VBA删除后删除空白行

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)

我希望这行代码是我从这个answer了将消除空白行，但没有奏效

ASR.cells.Delete Shift:=xlUp

来源

2016-07-18 phillipsK

请始终指定什么行不通。它不符合你的期望吗？它会给出错误吗？什么是错误信息和什么行导致错误？ Excel变得无反应或崩溃？ – arcadeprecinct

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

来源

2016-07-18 15:48:36

我在fort循环中有这段代码，所以现在删除行扭曲了我循环的for循环的行数，你知道如何调整吗？ – phillipsK

@phillipsK确保你通过数据集向后循环。 –

@ScottCraner是否有追加'Shift：= xlUp'的方法？ – phillipsK

Excel VBA删除后删除空白行

回答

相关问题