[已解决]较复杂的两表比对

夹竹桃

      通过比较“上学年”和“本学年”两表学生姓名和家长姓名，如两表带黄色的行，上学年表中黄色的本学年中没有，把上学年中黄色的行粘贴到“辍学”，把“本学年”黄色的行粘贴到“转入”表。
    当然完整表中行数很多的。
不知能不能实现此功能，请各位高手赐教！
    这里先谢谢大家！

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-28 00:20

1. Option Explicit
   
2. 
   
3. Dim A, B, C, d, i, j, s
   
4. Sub test()
   
5.     A = Sheet1.Range("a1").CurrentRegion
   
6.     B = Sheet2.Range("a1").CurrentRegion
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     test2
   
9.     test3 B, A, "辍学"
   
10.     test3 A, B, "转入"
    
11. End Sub
    
12. 
    
13. Sub test2()
    
14.     ReDim C(1 To 10 ^ 4, 1 To UBound(A, 2))
    
15.     For j = 1 To UBound(C, 2)
    
16.         C(1, j) = A(4, j)
    
17.     Next j
    
18. End Sub
    
19. 
    
20. Sub test3(A, B, str)
    
21.     d.RemoveAll
    
22.     For i = 5 To UBound(A)
    
23.         d(A(i, 2)) = ""
    
24.     Next i
    
25.     s = 1
    
26.     For i = 5 To UBound(B)
    
27.         If d.exists(B(i, 2)) = False Then
    
28.             s = s + 1
    
29.             For j = 1 To UBound(B, 2)
    
30.                 C(s, j) = B(i, j)
    
31.             Next j
    
32.         End If
    
33.     Next i
    
34.     With Sheets(str)
    
35.         .Cells.ClearContents
    
36.         .Range("a1").Resize(s, j - 1) = C
    
37.     End With
    
38. End Sub
    

复制代码

较复杂的两表比对2.rar (16.69 KB, 下载次数: 18)

2013-7-28 00:20 上传

点击文件名下载附件

跳转到最佳答案楼层

w2001pf

用什么做？

夹竹桃

vba最好

夹竹桃

谢谢你的光顾

夹竹桃

不过 能用函数也行
就是怕运行速度慢

sliang28

这个用VLOOKUP查一下,手动复制一下就好了.没有说的那么复杂.

爱疯

1. Option Explicit
   
2. 
   
3. Dim A, B, C, d, i, j, s
   
4. Sub test()
   
5.     A = Sheet1.Range("a1").CurrentRegion
   
6.     B = Sheet2.Range("a1").CurrentRegion
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     test2
   
9.     test3 B, A, "辍学"
   
10.     test3 A, B, "转入"
    
11. End Sub
    
12. 
    
13. Sub test2()
    
14.     ReDim C(1 To 10 ^ 4, 1 To UBound(A, 2))
    
15.     For j = 1 To UBound(C, 2)
    
16.         C(1, j) = A(4, j)
    
17.     Next j
    
18. End Sub
    
19. 
    
20. Sub test3(A, B, str)
    
21.     d.RemoveAll
    
22.     For i = 5 To UBound(A)
    
23.         d(A(i, 2)) = ""
    
24.     Next i
    
25.     s = 1
    
26.     For i = 5 To UBound(B)
    
27.         If d.exists(B(i, 2)) = False Then
    
28.             s = s + 1
    
29.             For j = 1 To UBound(B, 2)
    
30.                 C(s, j) = B(i, j)
    
31.             Next j
    
32.         End If
    
33.     Next i
    
34.     With Sheets(str)
    
35.         .Cells.ClearContents
    
36.         .Range("a1").Resize(s, j - 1) = C
    
37.     End With
    
38. End Sub
    

复制代码

较复杂的两表比对2.rar (16.69 KB, 下载次数: 18)

2013-7-28 00:20 上传

点击文件名下载附件

夹竹桃

谢谢爱疯的鼎力支持和帮助！！