工作表查询对应填表问题
时间：2011-08-10
来源：互联网
请教:如何将B表中某考生C列的内容,依考生号对应填入A表中I列?若某考生在A表中无名或I列中已有内容且与B表中该考生C列的内容不同,则该考生的"毕业生去向"单元格显黄色(数据不复盖).谢谢.
Work.rar(43.88 KB)
附件
Work.rar(43.88 KB)
2011-8-10 18:35, 下载次数: 5
作者: xhzxl 发布时间: 2011-08-10
复制内容到剪贴板
Dim d As Object, r, i%
r = Workbooks.Open(ThisWorkbook.Path & "\B.xls", , True).Sheets(1).Range("a2:d" & [a65536].End(3).Row)
Workbooks("B").Close
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(r)
d(r(i, 1)) = r(i, 3)
Next
r = Range("a4:l" & [k65536].End(3).Row)
For i = 1 To UBound(r)
If d.exists(r(i, 11)) Then
If r(i, 9) = "" Then
r(i, 9) = d(r(i, 11))
Else
If r(i, 9) <> d(r(i, 11)) Then Cells(i + 3, 9).Interior.ColorIndex = 6
End If
End If
Next
Columns("K:K").NumberFormatLocal = "@"
[a4].Resize(UBound(r), 12) = r
Set d = Nothing
End Sub
代码:
Sub yy()Dim d As Object, r, i%
r = Workbooks.Open(ThisWorkbook.Path & "\B.xls", , True).Sheets(1).Range("a2:d" & [a65536].End(3).Row)
Workbooks("B").Close
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(r)
d(r(i, 1)) = r(i, 3)
Next
r = Range("a4:l" & [k65536].End(3).Row)
For i = 1 To UBound(r)
If d.exists(r(i, 11)) Then
If r(i, 9) = "" Then
r(i, 9) = d(r(i, 11))
Else
If r(i, 9) <> d(r(i, 11)) Then Cells(i + 3, 9).Interior.ColorIndex = 6
End If
End If
Next
Columns("K:K").NumberFormatLocal = "@"
[a4].Resize(UBound(r), 12) = r
Set d = Nothing
End Sub
附件
按考生号.rar(57.67 KB)
2011-8-10 19:11, 下载次数: 1
作者: 白云2011 发布时间: 2011-08-10
回复楼主，详见附件！
Work.rar(63.91 KB)
附件
Work.rar(63.91 KB)
2011-8-10 19:11, 下载次数: 2
作者: fuyou1355 发布时间: 2011-08-10
按名字.rar (57.8 KB)
作者: 白云2011 发布时间: 2011-08-10
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
