如何用VBA代码自动删除某两列数值值相同的行？

OALD · 发表于 2011-7-4 13:58

刚刚开始接触VBA，向老师们请教一个问题：

如何用VBA代码自动删除“预计采购数量”与“实际采购数量”值相同的行？具体请参见附件

请老师们不吝赐教!非常感谢！

[ 本帖最后由 OALD 于 2011-7-4 20:54 编辑 ]

OALD · 发表于 2011-7-4 14:21

自己顶起来，谢谢！

wukejia · 发表于 2011-7-4 14:25

Sub DeleteRow()
Dim i As Integer
For i = 2 To Sheets(1).Cells(65536, 2).End(xlUp).Row
If Cells(i, 2) = Cells(i, 3) Then
Rows(i).Delete
End If
Next
End Sub

OALD · 发表于 2011-7-4 14:49

谢谢wukejia 老师的快速回复，我试了一下，确实可以，但是我在我的另外一个比较大的文件里试了一下，发现有一些“预计采购数量”与“实际采购数量”值相同的行没有被删除，是不是代码还有什么小问题呢？能不能再抽空帮忙看一下? 文件见附件，非常感谢!

OALD · 发表于 2011-7-4 15:53

自己再顶一下, 因为急需解决,谢谢!

OALD · 发表于 2011-7-5 07:07

自己再顶一下，因为急需解决，请各位老师帮忙，谢谢!

蓝桥玄霜 · 发表于 2011-7-5 08:42

Sub DeleteRow()
Dim i&
For i = Sheets(1).Cells(65536, 2).End(xlUp).Row To 2 Step -1
If Cells(i, 2) = Cells(i, 3) Then
Rows(i).Delete
End If
Next
End Sub

复制代码

wukejia · 发表于 2011-7-5 08:50

呃昨天下班走了没来得及看，7L的代码是对的，删除行是从最后一行开始才不会有遗漏

OALD · 发表于 2011-7-5 14:52

谢谢蓝桥玄霜斑竹的解答，确实解决了，所有“预计采购数量”与“实际采购数量”值相同的行都被删除了！非常感谢，我还有一点要求，就是我平时有很多类似的表需要这样的功能（删除第二列和第三列数值值相同的行），能不能做成一个小工具，很方便地应用于其他的表呢？谢谢！

非常感谢，EH热心人真多，希望自己早日成长起来，以后有机会也可以帮助其他的人。

dsmch · 发表于 2011-7-5 15:35

用excel自带的操作方法就可以解决。

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

[求助] 如何用VBA代码自动删除某两列数值值相同的行？

回复 3楼 wukejia 的帖子

要从最后开始

回复 7楼蓝桥玄霜的帖子

[求助] 如何用VBA代码自动删除某两列数值值相同的行？

回复 3楼 wukejia 的帖子

要从最后开始

回复 7楼 蓝桥玄霜 的帖子

回复 7楼蓝桥玄霜的帖子