两个工作簿的数据对比

lpzxhjp · 发表于 2012-4-13 15:55

本帖最后由 lpzxhjp 于 2012-4-13 20:08 编辑

各位老师：麻烦您了！
将工作簿“录入员1”的sheet1与工作簿“录入员2”的sheet1根据字段进行对比（两个工作簿表式完全一样），看每个人的各科成绩在两个工作簿中是否一致，如果一致，则输入“√”，如果不一致则输入“×”。然后将结果记录到工作簿“效果”中（三个工作簿格式一样）。谢谢！
在zhaogang1960版主的帮助下已解决，非常感谢大家的帮助！！！

dreamrose · 发表于 2012-4-13 16:11

弱弱问一下，你这两个表，录入考试人员的顺序是不是都一样的？都是按照考号排序？如果是的话，直接用If 函数就可以了。不是的话，排序用If 函数也可以

LangQueS · 发表于 2012-4-13 16:11

仅供参考：

http://club.excelhome.net/thread-839551-1-1.html

humengqiang · 发表于 2012-4-13 16:13

把工作薄同时打开，然后用简单的if函数就可以搞定呀

LangQueS · 发表于 2012-4-13 16:15

效果表C4公式=IF([录入员2.xls]Sheet1!C4-[录入员1.xls]Sheet1!C4=0,"√","×")，横竖复制公式即可。

lpzxhjp · 发表于 2012-4-13 17:09

本帖最后由 lpzxhjp 于 2012-4-13 17:09 编辑

LangQueS 发表于 2012-4-13 16:15
效果表C4公式=IF([录入员2.xls]Sheet1!C4-[录入员1.xls]Sheet1!C4=0,"√","×")，横竖复制公式即可。

版主，您好！能不能用代码？因为我的数据量很大，大约在2万行左右，公式会不会太慢？再问一下，不打开原来的2个工作簿行吗？

LangQueS · 发表于 2012-4-13 17:21

[原创]★将公式保存在宏中★ http://club.excelhome.net/thread-343010-1-1.html

lpzxhjp · 发表于 2012-4-13 18:20

LangQueS 发表于 2012-4-13 17:21
[原创]★将公式保存在宏中★ http://club.excelhome.net/thread-343010-1-1.html

有什么好办法，可以不打开工作簿进行对比吗？谢谢！

zhaogang1960 · 发表于 2012-4-13 19:57

短信收到
Sub Macro1()
Dim cnn As Object
Dim Mypath As String
Dim myTable As String
Dim SQL$, s$, i&
Set cnn = CreateObject("adodb.connection")
Mypath = ThisWorkbook.Path & "\"
myTable = "[Sheet1$" & [a3].CurrentRegion.Address(0, 0) & "]"
myTable = "[Sheet1$a3:r] where 考场 is not null"
a = [C3:R3&""]
For i = 1 To UBound(a)
s = s & ",iif(a." & a(i) & "=b." & a(i) & ",'√','×')"
Next
SQL = "select a.考场,a.考号" & s & " from (select * from " & myTable & ") a left join (select * from [Excel 8.0;Database=" & Mypath & "录入员2.xls]." & myTable & ") b on a.考场=b.考场 and a.考号=b.考号"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & "录入员1.xls"
Range("A4:R65536").ClearContents
[a4].CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
End Sub

zhaogang1960 · 发表于 2012-4-13 19:58

请看附件

数据对比.rar (85.72 KB, 下载次数: 868)

		自动登录	找回密码
密码			免费注册

[已解决] 两个工作簿的数据对比

评分

评分