Excel数据从一张表导入另一张表

2010-04-07 03:04:03 407 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

各位达人，最近遇到一个问题，就是我有两张表（如表1、表2），格式如下：
表1 A B C D 表2 A B C
班级姓名性别成绩性别姓名成绩
1班小王男男小明 90
2班小明男男小红 85
想通过VBA的方法判断出两张表里都有小明，然后要把表2中小明的成绩导入到表1对应的列中（即D列），上表只是举例，实际的表比较复杂，呵呵，但目的是相同的，小弟不才，写了一段代码，但只能“判断出两张表里都有小明”，下一步再判断后的基础上导入数据应该怎么写呢？望大侠指点阿，谢谢！！！
我的代码：Public Sub test()
Set s1 = Sheets("表1")
Set s2 = Sheets("表2")
For b1 = 4 To s1.[b65536].End(3).Row
For b2 = 4 To s2.[b65536].End(3).Row
If s1.Range("b" & b1) = s2.Range("b" & b2) Then
s1.Range("b" & b1).Interior.ColorIndex = 4
s2.Range("b" & b2).Interior.ColorIndex = 4
End If
Next b2
Next b1
End Sub

...全文