两个数据表进行数据对比

calvincj

　　公司每年都会产生大量的物料使用清单，需要把2年的清单做比较来找到不同的地方。现在是要先对比表格中A列的内容，如果一样的话就对比这一行里D~J的内容，如果不一样就标示出来。只是由于每年都会增加和减少很多行的内容，一直没有想到合适的处理方法~~~~请高手帮忙看看~~~~

　　附件是两个示例表，　　
　　把FW11表中数据和FW12表中数据做对比。
　　
　　请各位大大帮忙，万分感谢！

示例.zip (62.53 KB, 下载次数: 55)

2011-12-27 12:59 上传

点击文件名下载附件

d天地一沙鸥d

两张表复制到同张表，删除重复项，再删除表1数据，剩下就是不同数据，再标识。

沐雨01

同样的问题，期待得到解决。

zhaogang1960

沐雨01 发表于 2012-4-20 15:25
同样的问题，期待得到解决。

欢迎新会员，ADO法请参考：

1. Sub Macro1()
   
2.     Dim cnn As Object
   
3.     Dim SQL$, s$, i&
   
4.     Set cnn = CreateObject("adodb.connection")
   
5.     For i = 4 To 10
   
6.         s = s & ",iif(a.f" & i & "=b.f" & i & ",'√','×')"
   
7.     Next
   
8.     SQL = "select a.f1,null,null" & s & " from (select * from [Excel 12.0;hdr=no;Database=" & ThisWorkbook.FullName & "].[WEB_TEMPLATE 1 $a2:j] where f1 is not null) a " _
   
9.         & "left join (select * from [WEB_TEMPLATE 1 $a2:j] where f1 is not null) b on a.f1=b.f1"
   
10.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & ThisWorkbook.Path & "\FW12.xlsb"
    
11.     Cells.ClearContents
    
12.     Sheets("WEB_TEMPLATE 1 ").Rows(1).Copy [a1]
    
13.     [a2].CopyFromRecordset cnn.Execute(SQL)
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

为了简化程序，代码放在第一个工作簿中，请看附件：
示例.rar (71.99 KB, 下载次数: 180)

2012-4-20 16:35 上传

点击文件名下载附件

沐雨01

zhaogang1960 发表于 2012-4-20 16:35
为了简化程序，代码放在第一个工作簿中，请看附件：

多谢版主。新手得认真学习一下。

LMY123

QL = "select a.f1,null,null" & s & " from (select * from [Excel 12.0;hdr=no;Database=" & ThisWorkbook.FullName & "].[WEB_TEMPLATE 1 $a2:j] where f1 is not null) a " _
        & "left join (select * from [WEB_TEMPLATE 1 $a2:j] where f1 is not null) b on a.f1=b.f1"