批量删除空白行，整个工作簿

LangQueS

Sub 删除空行()
For i = 1 To Sheets.Count
    Sheets(i).Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    '删除第一列为空值的行
Next
End Sub

ysdms

每个工作表删除空行的标准是否一样？这个问题很重要。

如果一样，上面的几种办法都可以。如果不一样，就比较麻烦

kdkp

原帖由 ysdms 于 2010-1-25 12:42 发表
不太明白 你说的。
比如sheet1 中按照A列 的空值删除空行，sheet2中按照B列的空值删除空行

如果是只要存在空值 就删除空行。那么上面的办法还是可行的。

不明白楼主的每个工作表的数据结构

我已虚拟了一个附件，麻烦你看看怎么解决

yuyangqh

我想问每个工作表都是以A列做判定来删除行吗，还要一次性操作所有的工作表,如果是这样的话,我的想法是，用VBA，编个小程序用个for 循环所有的工作表,  再用个for 循环工作表的行数，然后用if   语句，判断A列的单元格是否为空，如是就删除这行。这看看这个思路怎么样

kdkp

原帖由 yuyangqh 于 2010-1-25 12:50 发表
我想问每个工作表都是以A列做判定来删除行吗，还要一次性操作所有的工作表,如果是这样的话,我的想法是，用VBA，编个小程序用个for 循环所有的工作表,  再用个for 循环工作表的行数，然后用if   语句，判断A列的单元格 ...

说来惭愧 不懂宏

kdkp

原帖由 LangQueS 于 2010-1-25 12:45 发表
Sub 删除空行()
For i = 1 To Sheets.Count
    Sheets(i).Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    '删除第一列为空值的行
Next
End Sub

提示未找到单元格
能根据我的附件再帮我改改吗？
我自己不懂宏，但这问题貌似只能用宏来处理。

yuyangqh

原帖由 LangQueS 于 2010-1-25 12:45 发表
Sub 删除空行()
For i = 1 To Sheets.Count
    Sheets(i).Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    '删除第一列为空值的行
Next
End Sub

11楼这个感觉很简洁，不错，我学习学习

yuyangqh

用的是11楼的方法，运行正常，我把附件传上来，11楼收不收徒弟呀！高手

kdkp

已经解决。谢谢楼上各位热心人！！！

LangQueS

原帖由 kdkp 于 2010-1-25 12:57 发表

提示未找到单元格
能根据我的附件再帮我改改吗？
我自己不懂宏，但这问题貌似只能用宏来处理。

执行代码未见异常。