Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 本人的小程序《文本整理器》,还有在线文本整理器wbzlq.com,欢迎使用。