VBA进行数据对比，高手请指教

fishchen

学习.zip (16.34 KB, 下载次数: 46)

2018-7-10 00:54 上传

点击文件名下载附件

smhf_6

如果同一人在同一行，那么可以直接比较。
问题是在现实中，这两边总行数不一定相同，即使相同，同一人未必在同一行。那么谁与谁比较呢? 比较的对象都找不准，更谈不上比较结果了。
即使您排序了，正因为有错误差异，也会导致数据移位，比如一方的姓名出现错误，本应排在第一位的，现在第100位，而另一方没错，仍在第一位，排序后导致整表的位置都移位，如果换成按身份证号排序，同样会出现这种情况

smhf_6

至少应确信或假设有一项没错，且该项没有重复值，然后以该项为基准，对余下五项的内容进行比较。
这种方式，与双方的总行数，位置都无关，反正最后会出现4种结果：双边存在且正确的，双边存在但部分信息不符，甲方存在乙方不存在，乙方存在甲方不存在。

fishchen

smhf_6 发表于 2018-7-10 04:26
如果同一人在同一行，那么可以直接比较。
问题是在现实中，这两边总行数不一定相同，即使相同，同一人未必 ...

先前可以先排序，基本上可能做到同一人同一行做比较。

fishchen

先期可以手动对两个系统数据进行排序，一一对应同一行，然后对数据进行比较即可，有高手指教没

opiona

1.     Set SH0 = Worksheets("Sheet1")
   
2.     SH0.Range("A4:F65536").ClearContents
   
3.    
   
4.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
5.     StrSQL = ""
   
6.     StrSQL = StrSQL & "SELECT 姓名,学籍辅号,国网学号,身份证号码,户籍地,民族"
   
7.     StrSQL = StrSQL & " FROM ("
   
8.     StrSQL = StrSQL & "SELECT A.姓名,A.学籍辅号,A.国网学号,A.身份证号码,A.户籍地,A.民族"
   
9.     StrSQL = StrSQL & ",B.姓名 AS 条件"
   
10.     StrSQL = StrSQL & " FROM ("
    
11.     StrSQL = StrSQL & "SELECT 姓名,学籍辅号,国网学号,身份证号码,户籍地,民族"
    
12.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$H3:M]"
    
13.     StrSQL = StrSQL & ") AS A LEFT JOIN ("
    
14.     StrSQL = StrSQL & "SELECT 姓名,学籍辅号,国网学号,身份证号码,户籍地,民族"
    
15.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$N3:S]"
    
16.     StrSQL = StrSQL & ") AS B ON A.姓名=B.姓名 AND A.身份证号码=B.身份证号码"
    
17.     StrSQL = StrSQL & " AND A.学籍辅号=B.学籍辅号 AND A.国网学号=B.国网学号 AND A.民族=B.民族"
    
18.    
    
19.     StrSQL = StrSQL & " AND ("
    
20.     Rem  或者：户籍地包含关系
    
21.     StrSQL = StrSQL & "INSTR(B.户籍地,A.户籍地)>0"
    
22.     Rem  或者：中招网中“外省户籍”对应国网中不含“长乐市”的也较验通过
    
23.     StrSQL = StrSQL & "OR (A.户籍地='外省户籍' AND INSTR(B.户籍地,'长乐市')=0)"
    
24.     Rem  或者：中招网户籍地中如遇“香港、台湾、澳门”对应国网含“长乐市”户籍较验也通过
    
25.     StrSQL = StrSQL & "OR (INSTR(A.户籍地,'香港')+INSTR(A.户籍地,'台湾')+INSTR(A.户籍地,'澳门')>0 AND INSTR(B.户籍地,'长乐市')>0)"
    
26.     StrSQL = StrSQL & ")"
    
27.    
    
28.     StrSQL = StrSQL & ") WHERE NOT 条件 IS NULL AND LEN(条件)>0"
    
29.    
    
30.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
31.     SH0.Range("A4").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR

复制代码

opiona

QQ14885553.rar (34.88 KB, 下载次数: 59)

2018-7-12 10:45 上传

点击文件名下载附件

原始数据有小修改

zopey

Sub 按钮1_Click()
Dim arr, brr, crr(), k0
k0 = [h3].End(4).Row - 3
arr = [h4].Resize(k0, 6)
brr = [n4].Resize(k0, 6)
ReDim crr(1 To k0, 1 To 6)

For i = 1 To k0
For j = 1 To 6
If j = 5 Then
   If arr(i, j) = "台湾" Or arr(i, j) = "澳门" Or arr(i, j) = "香港" Or arr(i, j) = "长乐市" Then
      If InStr(brr(i, j), "长乐市") > 0 Then crr(i, j) = "通过" Else crr(i, j) = "错误"
   ElseIf arr(i, j) = "外省户籍" Then
      If InStr(brr(i, j), "长乐市") = 0 Then crr(i, j) = "通过" Else crr(i, j) = "错误"
   End If
Else
   If arr(i, j) = brr(i, j) Then
      crr(i, j) = "通过"
   Else
      crr(i, j) = "错误"
   End If
End If
Next
Next

[a4].Resize(k0, 6) = crr
End Sub




学习2.zip (22.95 KB, 下载次数: 80)

2018-7-12 11:52 上传

点击文件名下载附件