VBA求助

zhongyong

请教高手：
1.如何利用VBA将表二中的数据列数字（这样的数据上万行）快速复制到表一对应班级的数据列（蓝色）；
2.如果表二中班级列在表一中没有，该行标注黄色（如表二中的7班）。
谢谢！  详见附件

狗尾巴草儿

1. 我用这个数据写了一个代码，代码的上下限都是固定的，如果你的数据多，可以调整一下上下限。还有在表二中有一个辅助列，不要的话，可以删除

复制代码

狗尾巴草儿

1. Sub 数据()
   
2. Set a = Worksheets("表一")
   
3. Set b = Worksheets("表二")
   
4. For j = 7 To 16
   
5. For i = 8 To 17
   
6. If a.Cells(i, 1) = b.Cells(j, 2) Then
   
7. a.Cells(i, 2) = b.Cells(j, 3)
   
8. b.Cells(j, 4) = Cells(i, 1)
   
9. End If
   
10. Next
    
11. Next
    
12. For j = 7 To 16
    
13. If b.Cells(j, 4) = "" Then
    
14. b.Cells(j, 2).Interior.ColorIndex = 6
    
15. b.Cells(j, 3).Interior.ColorIndex = 6
    
16. End If
    
17. Next
    
18. End Sub

复制代码