获取列中不包含的数字

cqz1314

分类.rar (8.16 KB, 下载次数: 13)

2019-10-19 09:53 上传

点击文件名下载附件

花名册中记录的是学生的学号和姓名

【完成】表中记录的是完成任务的学号

想在【未完成】表格中对应【完成】的列，显示未完成的学号。

会有很多记录列，


最好是VBA，谢谢

cqz1314

chxw68 发表于 2019-10-19 12:30
修改好了。

谢谢

老师 我想让前4列生效 修改了这里  但是没有成功  
还需要改什么地方
能否在运行代码时 让【未完成】表中第1行，与【完成】表中第1行同名对应
拜托

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d(1 To 2) As Object
   
5.   For i = 1 To 2
   
6.     Set d(i) = CreateObject("scripting.dictionary")
   
7.   Next
   
8.   With Worksheets("完成")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     arr = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(.Rows.Count, 2).End(xlUp).Row)
    
11.     arr = .Range("a2:b" & r)
    
12.     For j = 1 To 2
    
13.       For i = 1 To UBound(arr)
    
14.         d(j)(arr(i, j)) = ""
    
15.       Next
    
16.     Next
    
17.   End With
    
18.   With Worksheets("花名册")
    
19.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
20.     arr = .Range("a2:b" & r)
    
21.     ReDim brr(1 To UBound(arr), 1 To 2)
    
22.     For j = 1 To 2
    
23.       m = 0
    
24.       For i = 1 To UBound(arr)
    
25.         If Not d(j).exists(arr(i, 1)) Then
    
26.           m = m + 1
    
27.           brr(m, j) = arr(i, 1)
    
28.         End If
    
29.       Next
    
30.     Next
    
31.   End With
    
32.   With Worksheets("没完成")
    
33.     .UsedRange.Offset(1, 0).ClearContents
    
34.     .Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
35.   End With
    
36. End Sub
    

复制代码

microyip

03年的帐号，10年第一个VBA求助，今时今日还问这个简单的逐个比较的问题

chxw68

详见附件，仅供楼主参考。

chxw68

microyip 发表于 2019-10-19 10:07
03年的帐号，10年第一个VBA求助，今时今日还问这个简单的逐个比较的问题

呵呵，元老级的人物了！我才是2006年注册的。

cqz1314

chxw68 发表于 2019-10-19 10:25
呵呵，元老级的人物了！我才是2006年注册的。

不学无术呀

哈哈

辛苦 谢谢

microyip

chxw68 发表于 2019-10-19 10:25
呵呵，元老级的人物了！我才是2006年注册的。

你也是元老级，我是07年尾

cqz1314

chxw68 发表于 2019-10-19 10:07

  arr = .Range("a2:c" & r)

只支持前两列
Dim d(1 To 3) As Object
  For i = 1 To 3
    Set d(i) = CreateObject("scripting.dictionary")
  Next
  With Worksheets("完成")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(.Rows.Count, 3).End(xlUp).Row)
    arr = .Range("a2:c" & r)
    For j = 1 To 3
到不了第3列

cqz1314

chxw68 发表于 2019-10-19 10:07

  arr = .Range("a2:c" & r)

只支持前两列
Dim d(1 To 3) As Object
  For i = 1 To 3
    Set d(i) = CreateObject("scripting.dictionary")
  Next
  With Worksheets("完成")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(.Rows.Count, 3).End(xlUp).Row)
    arr = .Range("a2:c" & r)
    For j = 1 To 3
到不了第3列

chxw68

microyip 发表于 2019-10-19 10:27
你也是元老级，我是07年尾

咱俩注册时间差不多。