到财务走了一圈，正好看到一位同事正在对两个Excel文件进行比较。两个文件的内容大致如此（列出部分列名）：

　　财务同事的需求是：找出两个表中贷款人身份证一样，但贷款余额不一致的数据。因量比较大，手工去找余额不一致相当麻烦。对财务人员来说可能经常会碰到这样的问题，痛苦！我第一反应是要给她想个办法，简单处理这种繁琐的工作。于时随手写了以下VBA来实现。

　　第一步，先将要核对的两个文件放到一个文件中，一个放在Sheet1,另一个放在Sheet2中。

　　第二步，加个按钮，写以下VBA事件：

Private Sub CommandButton1_Click()
  Dim objCon, objDataSet, sqlStr
  Set objCon = CreateObject("ADODB.Connection")
  Set objDataSet = CreateObject("adodb.recordset")
  objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;imex=1;';Data Source=" & ThisWorkbook.FullName

  sqlStr = "select a.*  from [Sheet1$] a left join [Sheet2$] b on (a.[主贷身份证]=b.[主贷身份证]) where a.[贷款余额]<>b.[贷款余额]"
  Set objDataSet = objCon.Execute(sqlStr)

  Sheet1.[e1:g1000].ClearContents '清除这个区域
  Sheet1.[e1].CopyFromRecordset objDataSet　'将不致的写到E列
  objDataSet.Close
  objCon.Close
  Set objDataSet = Nothing
  Set objCon = Nothing
End Sub

　　按下按钮，不一致的数据全部找了出来。需求和解决办法虽简单，但可以帮助到很多不懂VBA的朋友，供参考。