怎么用SQL的方法将两个工作表的不同记录导到新工作表中？

amazeyeli

yqdaqinqin 发表于 2013-1-30 18:19
http://club.excelhome.net/thread-556345-2-1.html  你看看20楼的附件，以前讨论过这个问题，select没有 ...

在表a中检索在表b中有的记录
SELECT * FROM a
WHERE EXISTS
(SELECT 1 FROM b WHERE id=a.id AND name=a.name AND ...)
在表a中检索在表b中没有的记录
SELECT * FROM a
WHERE NOT EXISTS
(SELECT 1 FROM b WHERE id=a.id AND name=a.name AND ...)

amazeyeli

yqdaqinqin 发表于 2013-1-29 11:30
这个代码会打乱a列顺序！

只有先能理解数据的无序性,你才能理解数据库,此时你才会使用SQL

lzqmsy

yqdaqinqin 发表于 2013-1-30 18:19
http://club.excelhome.net/thread-556345-2-1.html  你看看20楼的附件，以前讨论过这个问题，select没有 ...

需要我做一个吗?

lzqmsy

做3个表,1:两个表都有的数据;2:表一有,表二没有的数据;3:表二有,表一没有的数据.  可以吗?

lzqmsy

是不是还以1楼的附件为准啊?

yqdaqinqin

lzqmsy 发表于 2013-1-30 20:53
需要我做一个吗?

我刚发了个帖子，一样的问题，你看看这里就可以！http://club.excelhome.net/forum. ... p;extra=#pid6695888

lzqmsy

就这么简单,见附件 如何用SQL将2个工作表的相同和不同的记录生成新的工作表.rar (454.73 KB, 下载次数: 111)

2013-1-30 21:37 上传

点击文件名下载附件

lzqmsy

nhygm 发表于 2013-1-29 11:25
感谢各位帮忙，怪我没说明白，表1和表2的记录 都以A列为准，所以用a.f1=b.f1 就可以了。
我在问一个问题， ...

复制粘贴到一个工作簿里

ddhhyy16

zhaogang1960 发表于 2013-1-30 12:17
请模拟效果

帮我看看，用你滴方法~谢谢

zhaogang1960

ddhhyy16 发表于 2013-1-31 09:38
帮我看看，用你滴方法~谢谢

你这个题目好难啊，费了一个多小时：

1. Sub Macro1()
   
2.     Dim d As Object, ds As Object, sh As Worksheet, a, arr, brr, i&, j&, l&, s$, t
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("原始数据").Range("A1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         If Len(arr(i, 2)) Then
   
7.             If Not d.Exists(arr(i, 2)) Then Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
   
8.             d(arr(i, 2))(arr(i, 4)) = d(arr(i, 2))(arr(i, 4)) & "," & i
   
9.         End If
   
10.     Next
    
11.     k = d.Keys
    
12.     On Error Resume Next
    
13.     For l = 0 To d.Count - 1
    
14.         Set sh = Sheets(k(l))
    
15.         If Not sh Is Nothing Then
    
16.             Set ds = d(k(l))
    
17.             With sh.Range("A3").CurrentRegion
    
18.                 .Offset(1, 3).ClearContents
    
19.                 brr = .Value
    
20.                 For i = 2 To UBound(brr)
    
21.                     If Len(brr(i, 1)) Then s = brr(i, 1) Else s = brr(i, 3)
    
22.                     t = ds(s)
    
23.                     If t <> "" Then
    
24.                         a = Split(t, ",")
    
25.                         For j = 1 To UBound(a)
    
26.                             brr(i, arr(a(j), 1) + 3) = arr(a(j), 7)
    
27.                         Next
    
28.                     End If
    
29.                 Next
    
30.                 .Value = brr
    
31.             End With
    
32.         End If
    
33.     Next
    
34. End Sub
    
35. 
    

复制代码