请教如何用VBA实现从下往上的删除重复行

zjp6571657 · 发表于 2011-9-14 22:28

是这样的，我需要运行的文件的内容有2000多行，不知道如何用循环去删除重复行.
现在需要的是对B列为JPN，A列有重复的数据的行删除（已标记为红色部分），而且删除的是两个重复值下面一行的（即第二个），不知道该如何修改啊，还请在帮忙

PS：想从下往上循环遍历，该如何写啊，谢谢了

bacon6581 · 发表于 2011-9-14 23:00

本帖最后由 bacon6581 于 2011-9-14 23:06 编辑

胡乱写了个，看看合你意不？
循环来循环去的
比较慢，多等会.....

Book2.zip (38.97 KB, 下载次数: 142)

白云2011 · 发表于 2011-9-14 23:16

Sub yy()'联合删除
Dim s, d, c, i&, k As Boolean
Set d = CreateObject("scripting.dictionary")
s = Range("a1:a" & [a65536].End(3).Row)
For i = 1 To UBound(s)
If Not d.exists(s(i, 1)) Then
d(s(i, 1)) = ""
Else
If k Then
Set c = Application.Union(c, Cells(i, 1))
Else
Set c = Cells(i, 1)
k = True
End If
End If
Next
Set d = Nothing: c.Select
Selection.EntireRow.Delete
End Sub

复制代码

zjp6571657 · 发表于 2011-9-14 23:30

bacon6581 发表于 2011-9-14 23:00
胡乱写了个，看看合你意不？
循环来循环去的
比较慢，多等会.....

非常感谢，呵呵~

zjp6571657 · 发表于 2011-9-15 23:40

白云2011 发表于 2011-9-14 23:16

非常感谢你的帮助~

devilangle · 发表于 2017-7-8 10:17

白云2011 发表于 2011-9-14 23:16

谢谢，学习了

sakya88 · 发表于 2017-7-8 11:48

本帖最后由 sakya88 于 2017-7-8 11:52 编辑

Sub 删除每行A列中与A1单元格内容相同的行()
Dim i As Integer
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
      If Range("A" & i) = "" Then
      Rows(i).Delete
      End If
Next
End Sub

ncq666 · 发表于 2018-7-23 16:49

sakya88 发表于 2017-7-8 11:48
Sub 删除每行A列中与A1单元格内容相同的行()
Dim i As Integer
For i = ActiveSheet.UsedRange.R ...

如果不是A1单元格呢，也就是说不确定，有可能是A2或是A3.....An,例如，有可能是A2与A10相等，A3与A23相等

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

[求助] 请教如何用VBA实现从下往上的删除重复行