VBA比对两份文件，输出相同数据

Sub 查找相同点()

  工作握含簿1 = ActiveWorkbook.Name

  Sheets("表1").Select

  H1 = 2

  H2 = Cells(65536, 1).End(xlUp).Row

  L1 = 1

  L2 = Cells(1, 256).End(xlToLeft).Column

 悔皮雹 For H = H1 To H2

      For L = L1 To L2

          If Sheets("表1").Cells(H, L) <>Sheets("表2").Cells(H, L) Then

              Sheets("表3").Cells(H, L) = LTrim(Str$(Sheets("表1"碧帆).Cells(H, L))) + "," + LTrim(Str$(Sheets("表2").Cells(H, L)))

          End If

      Next

  Next

End Sub

假定文件旁颤夹为：E:\ABC，单元格猛岩为A1，代码如下：

wjm = Dir("E:\ABC\*.*")

Do While wjm <>""

If InStr(wjm, [A1]) >0 Then Exit Do

wjm = Dir

Loop

If wjm = "" Then [A1].Interior.ColorIndex = 3‘设置背枝启御景色为红色

---