[求助]如何在比较两个表后提取不重复的内容到一个新表中

hzljh

如何通过一个按钮实现在比较数据接收和打印记录两个表后提取不重复的内容到报修数据表中 xc9xtlyc.rar (8.72 KB, 下载次数: 17)

2007-9-9 00:28 上传

点击文件名下载附件
[求助]如何在比较两个表后提取不重复的内容到一个新表中

hzljh

怎么没人能解这个题吗？路过的高手啊！帮帮忙啊帮帮我吧。

[此贴子已经被作者于2007-9-9 21:33:50编辑过]

daley

以什么条件作为比较两表的重复数据?

hzljh

以两表中的C列、D列、E列内容作为比较两表内容的条件,然后提取不重复的数据内容到新表中去.

我用下面的公式不能达到我的要求:

Sub sy()
Dim a As Range

For Each a In Sheets("数据接收").Range("e6:e" & Sheets("数据接收").[e65536].End(xlUp).Row)
If Sheets("打印记录").[e:e].Find(a.Value) Is Nothing Then Sheets("报修数据").[e65536].End(xlUp).Offset(1, 0) = a.Value

Next a
End Sub

用上面的公式只能返回E列中的数据其它列的数据没有显示.我想要的是通过一个按钮实现在比较<<数据接收>>和<<打印记录>>两个表后提取不重复的内容整行的数据到报修数据表中,数据要整行的数据。谢谢！

[此贴子已经被作者于2007-9-10 14:20:17编辑过]

northwolves

先复制一个表到目标表,再循环比较第二个表的各记录,不存在则添加

hzljh

Sub sy()
Dim a As Range

For Each a In Sheets("数据接收").Range("e6:e" & Sheets("数据接收").[e65536].End(xlUp).Row)
If Sheets("打印记录").[e:e].Find(a.Value) Is Nothing Then Sheets("报修数据").[e65536].End(xlUp).Offset(1, 0) = a.Value

Next a
End Sub

这上面的公式我是借用别人的修改的。

先复制一个表到目标表,再循环比较第二个表的各记录,不存在则添加

northwolves版主用VBA公式如何写？我可是不会的啊。烦请northwolves版主给个示例啊。

[此贴子已经被作者于2007-9-10 18:31:54编辑过]

hzljh

路过的高手们能否帮我解释一下下面公式的含义。

Sub sy()
Dim a As Range

For Each a In Sheets("数据接收").Range("e6:e" & Sheets("数据接收").[e65536].End(xlUp).Row)
If Sheets("打印记录").[e:e].Find(a.Value) Is Nothing Then Sheets("报修数据").[e65536].End(xlUp).Offset(1, 0) = a.Value

Next a

End Sub