跪求老师帮忙，两列数据如何删除重复项

sxjpf2119 · 发表于 2019-8-15 21:43

请老师们帮忙看看，上面的vba如何实现！！！谢谢

张道贤 · 发表于 2019-8-15 21:55

将第一列装入“字典”，再用第二列数据去删除字典内的数

liulang0808 · 发表于 2019-8-15 22:01

vlookup之后筛选也可以吧

sxjpf2119 · 发表于 2019-8-15 22:01

张道贤发表于 2019-8-15 21:55
将第一列装入“字典”，再用第二列数据去删除字典内的数

你好老师我是小菜能不能帮忙写一下谢谢🙏

sxjpf2119 · 发表于 2019-8-15 22:02

liulang0808 发表于 2019-8-15 22:01
vlookup之后筛选也可以吧

跪求版主帮忙

kuangben8 · 发表于 2019-8-15 22:08

=IFERROR(INDEX(F:F,SMALL(IF(COUNTIF($G$3:$G$5,$F$3:$F$12)=0,ROW($F$3:$F$12)),ROW(A1))),"")

复制代码

工作簿1.zip (6.73 KB, 下载次数: 10)

网海遨游 · 发表于 2019-8-15 22:09

用for循环，把两列装入一个字典，取d.keys

kuangben8 · 发表于 2019-8-15 22:17

本帖最后由 kuangben8 于 2019-8-15 22:19 编辑

Sub 去重()
Dim arr, m%, n%
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
arr = Range("F3:G" & Cells(Rows.Count, "F").End(3).Row)
For m = 1 To UBound(arr, 1)
dic(arr(m, 1)) = ""
Next
For n = 1 To UBound(arr, 1)
If dic.exists(arr(n, 2)) Then
dic.Remove (arr(n, 2))
End If
Next
Range("I3").Resize(dic.Count) = Application.Transpose(dic.KEYS)
Set dic = Nothing
End Sub

复制代码

liulang0808 · 发表于 2019-8-15 22:22

附件内容供参考

orr89 · 发表于 2019-8-15 22:33

本帖最后由 orr89 于 2019-8-15 22:40 编辑

Sub 去重()          k = 2
a = [f60000].End(xlUp).Row
b = [g60000].End(xlUp).Row
range("i3:i" & a).clear
For c = 2 To a
      For d = 2 To b
         If Cells(c, "f") = Cells(d, "g") Then
            GoTo 100
         End If
      Next
      k = k + 1
      Cells(k, "i") = Cells(c, "f")
100:
Next c
End Sub
答对请送一朵小花

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

[求助] 跪求老师帮忙，两列数据如何删除重复项

评分

最新热点 /1