我使用此代码删除了所有空白行:
Sub DelBlankRows()
Columns("L:L").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
现在,我需要删除所有不是空白的行。就像L:L列中的单元格包含任何文本或数字一样,它会删除整行。
发布于 2014-02-12 14:06:08
一种方法是去掉所有含有常量或公式的单元格,这些单元格应该覆盖所有的单元格。
戈登
Sub DelNonBlankRows()
Columns("L:L").SpecialCells(xlCellTypeConstants).EntireRow.Delete
Columns("L:L").SpecialCells(xlCellTypeFormulas).EntireRow.Delete
End Sub
https://stackoverflow.com/questions/21740528
复制