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

快乐的罗非鱼

这是个非常好的帖子，也是我想学习的，每次见到赵大师的帖子总是受益匪浅、、、学习学习再学习  

快乐的罗非鱼

赵大师：           1、   d(1 To 3) As Object,如果是定义字典为什么是   1  TO  3 ,直接定义D1、D2 就可以了， 这句是什么意思 ？           2、, arr(1 To 2)     这句是二维数组的意思吗？    3、您能不能给字典法加注释，方便学习理解

lzqmsy

yqdaqinqin 发表于 2013-1-29 10:34
select不好完成！我也想要结果！麻烦楼主有结果转告一下

很好完成,sql很适合做这个

zhaogang1960

快乐的罗非鱼 发表于 2013-1-30 16:26
赵大师：           1、   d(1 To 3) As Object,如果是定义字典为什么是   1  TO  3 ,直接定义D1、D2 就可以 ...

数组元素和单独变量是一样的，d(1)相当于D1
arr(1 to 2)不是二维数组，只有两个元素的一维数组，相当于arr1、arr2，把一个数组赋值给arr(1)是数组嵌套

zhaogang1960

快乐的罗非鱼 发表于 2013-1-30 16:26
赵大师：           1、   d(1 To 3) As Object,如果是定义字典为什么是   1  TO  3 ,直接定义D1、D2 就可以 ...

1. Sub 字典法()
   
2.     Dim d(1 To 3) As Object, t, arr(1 To 2), brr(), i&, j&, m&, sh As Worksheet
   
3.     For i = 1 To 3 '创建3个字典对象
   
4.         Set d(i) = CreateObject("scripting.dictionary")
   
5.     Next
   
6.     For l = 1 To 2 '表1、表2  逐表
   
7.         arr(l) = Sheets("Sheet" & l).[a1].CurrentRegion '数据区写入各个数组
   
8.         For i = 1 To UBound(arr(l)) '逐行数据
   
9.             d(l)(arr(l)(i, 1)) = i '字典记住行号
   
10.         Next
    
11.     Next
    
12.     ReDim brr(0 To UBound(arr(1)), 1 To 4) '重新定义一个大小同arr(1)的数组brr
    
13.     For i = 1 To UBound(arr(1)) '表1逐行
    
14.         If d(1).Exists(arr(1)(i, 1)) And d(2).Exists(arr(1)(i, 1)) Then '如果两个字典都存在，就是两表相同记录
    
15.             For j = 1 To 4 '
    
16.                 brr(m, j) = arr(1)(i, j) '相同记录
    
17.             Next
    
18.             d(1).Remove (arr(1)(i, 1)) 'Sheet1独有——记录表1的字典要删除这一条
    
19.             m = m + 1
    
20.         End If
    
21.     Next
    
22.     On Error Resume Next
    
23.     Set sh = Sheets("相同记录")
    
24.     If Not sh Is Nothing Then sh.Cells.Clear Else Sheets.Add.Name = "相同记录"
    
25.     Sheets("相同记录").[a1].Resize(m, 4) = brr '写相同记录
    
26.     t = d(1).items 'Sheet1独有的行号写入数组t
    
27.     For i = 0 To d(1).Count - 1 '逐个行号
    
28.         For j = 1 To 4 '逐列
    
29.             brr(i, j) = arr(1)(t(i), j) 'Sheet1独有数据写入brr
    
30.         Next
    
31.     Next
    
32.     Set sh = Sheets("Sheet1独有")
    
33.     If Not sh Is Nothing Then sh.Cells.Clear Else Sheets.Add.Name = "Sheet1独有"
    
34.     Sheets("Sheet1独有").[a1].Resize(i, 4) = brr '写数据
    
35. End Sub
    
36. 
    

复制代码

快乐的罗非鱼

zhaogang1960 发表于 2013-1-30 17:15
数组元素和单独变量是一样的，d(1)相当于D1
arr(1 to 2)不是二维数组，只有两个元素的一维数组，相当于a ...

您的意思是 ： 1、  （ 1   TO   3  ）相当于 定义两个D1、D2           2、ARR(1 TO 2)相当于 SHEET1、SHEET2   我可以这样理解吗？

nkgsm

用vba太费脑子，用SQL语句，有一句太费时
看来还是用vlooku函数更简便

快乐的罗非鱼

快乐的罗非鱼 发表于 2013-1-30 17:28
您的意思是 ： 1、  （ 1   TO   3  ）相当于 定义两个D1、D2           2、ARR(1 TO 2)相当于 SHEET1、S ...

谢谢您百忙之中恢复我，我继续慢慢消化，有不懂的在问你、、、、

快乐的罗非鱼

nkgsm 发表于 2013-1-30 17:41
用vba太费脑子，用SQL语句，有一句太费时
看来还是用vlooku函数更简便

楼上的如果表格数据是2000多条，你还用函数吗？不是它死就是你死。我是不敢用啊、、、

yqdaqinqin

lzqmsy 发表于 2013-1-30 17:10
很好完成,sql很适合做这个

http://club.excelhome.net/thread-556345-2-1.html  你看看20楼的附件，以前讨论过这个问题，select没有行号概念，对于复杂一点的案例，结果很糟糕