Alt+F11 召唤神龙!
复制下面的代码后执行即可~
Sub pp() Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub
Alt+F11 召唤神龙!
复制下面的代码后执行即可~
Sub pp() Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub