[已解决]如何清除连续三行值为空的数据？

liuliuliuliu · 发表于 2010-3-16 22:22

向朋友请教，用宏怎么如何清除连续三行值为空的数据？

Sub 删除c列为指定内容的行()
Dim aaq, aaw As Integer
aaq = [a65536].End(xlUp).Row
   For aaw = 5 To aaq
      If Cells(aaw, 3).Value = "" Then
         Rows(aaw).Delete
      End If
   Next
End Sub

以上不能删除连续为空的数据

请高手改改为盼！

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-16 22:32

 For aaw = aaq To 5 Step -1

跳转到最佳答案楼层

枯禅 · 发表于 2010-3-16 22:32

 For aaw = aaq To 5 Step -1

liuliuliuliu · 发表于 2010-3-16 22:39

[em01]谢谢枯禅

问题解决了

yjb564 · 发表于 2010-3-16 22:40

学习一下

linyaya · 发表于 2010-3-16 22:42

QUOTE:

以下是引用liuliuliuliu在2010-3-16 22:39:00的发言：

[em01]谢谢枯禅

问题解决了

解决咋不给大师最佳呢

fdyjngbds · 发表于 2010-3-17 08:23

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

fdyjngbds fdyjngbds 当前离线积分 0 IP卡狗仔卡	发表于 2010-3-17 08:23 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
fdyjngbds fdyjngbds 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡