VBA只保留出现过一次的

困顿的人 · 发表于 2022-12-29 10:59

蓝桥玄霜发表于 2022-12-28 16:45
重复的例子：

老师代码运行出现错误

困顿的人 · 发表于 2022-12-29 11:42

蓝桥玄霜发表于 2022-12-28 16:45
重复的例子：

老师代码运行以后不能达到预期效果
金正男 310102195202032813
爱看女 812921197110033584
这些出现了两次的数据没有完全清理，还是被保留下来了

笨鸟飞不高 · 发表于 2022-12-29 12:10

数据重复练习题.zip (20.39 KB, 下载次数: 12)

zlzz1971 · 发表于 2022-12-29 13:03

用WPS运行，

困顿的人 · 发表于 2022-12-29 13:04

笨鸟飞不高发表于 2022-12-29 12:10

谢谢老师完美解决

10101100 · 发表于 2022-12-29 13:12

Sub test()
Dim Count As Integer
Dim Lst As New Collection
Dim dic
Count = Sheet1.UsedRange.Rows.Count
Set dic = CreateObject("scripting.dictionary")
For i = 2 To Count
If (Not dic.exists(Range("D" & i).Value)) Then
dic(Range("D" & i).Value) = 1
Else
dic(Range("D" & i).Value) = dic(Range("D" & i).Value) + 1
End If
Next
For j = Count To 2 Step -1
If (dic(Range("D" & j).Value) > 1) Then
Sheet1.Rows(j).Delete
End If
Next
End Sub

复制代码

困顿的人 · 发表于 2022-12-29 13:54

困顿的人发表于 2022-12-29 13:04
谢谢老师完美解决

  If x > 1 Then
            brr(i) = 1
            If x = 2 Then r = d(XmSr & "|R"): brr(r) = 1
         End If
         d(XmSr & "|R") = i

这行代码跪求老师解读一下 x > 1 和x = 2在条件上没有任何区别为什么要这样写

笨鸟飞不高 · 发表于 2022-12-29 14:18

困顿的人发表于 2022-12-29 13:54
If x > 1 Then
brr(i) = 1
If x = 2 Then r = d(XmSr & "|R"): brr ...

当x=2 说明姓名身份证号是第一次出现重复，则把此行位置标记为1，并把第一次出现的位置标记为1
当x=2, 3, 4...时说明姓名身份证号不是第一次出现重复了，则只需要把此行位置标记为1就可以了（不用标记第一次出现的位置了，因为第一次出现的位置在x=2时已经标记过了）

困顿的人 · 发表于 2022-12-29 14:34

ykcbf1100 发表于 2022-12-29 10:40
这样就可以。

代码简洁高效非常感谢老师出手相助

grf1973 · 发表于 2022-12-29 15:16

换个思路。。。。

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

[求助] VBA只保留出现过一次的