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

网络异常。setcentralwidget程序异常结束是因为网络异常，请稍后重试。网络异常是手机网络设置没设置好，可以换另外一个接入点来上网，比较原来用CMNET来上网，可以换成用CMWAP接入点来上网。

仅仅使用sql是油法子实现了，要配合编程才能实现。例如：

for($i=0$i<100$i++){

$m->query("update table set wc='$wc.$i' where id='$i'")

}

---