[已解决]判断有重复后添加数据

hhaa999 · 发表于 2014-5-6 21:24

本帖最后由 hhaa999 于 2014-5-6 22:07 编辑

添加数据

最佳答案

dsmch

2014-5-6 21:58

本帖最后由 dsmch 于 2014-5-6 22:00 编辑

………………

dsmch · 发表于 2014-5-6 21:56

Sub Macro1()
Dim arr, brr, d, i&, zf$, s&
Set d = CreateObject("scripting.dictionary")
Sheet1.Activate
arr = Range("a1").CurrentRegion
brr = Sheet2.Range("a1").CurrentRegion
For i = 1 To UBound(arr)
zf = Join(Application.Index(arr, i, 0), ",")
d(zf) = ""
Next
s = UBound(arr)
For i = 1 To UBound(brr)
zf = Join(Application.Index(brr, i, 0), ",")
If Not d.Exists(zf) Then s = s + 1: Sheet2.Cells(i, 1).Resize(1, UBound(brr, 2)).Copy Cells(s, 1)
Next
End Sub

复制代码

dsmch · 发表于 2014-5-6 21:58

本帖最后由 dsmch 于 2014-5-6 22:00 编辑

………………

hhaa999 · 发表于 2014-5-7 05:26

谢谢，如果sheet1中的数据和sheet2中的数据没有重复，提示没有重复数据，结束程序，sheet2中的数据不复制到sheet1中，关键少了判断重复

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