Question

VB怎么实现两个EXCEL之间的数据对比

Answer 1

Sub 数据对比()
Dim i As Integer
Dim j As Integer
For i = 2 To 95 '表1身份证字段是2行到95行
For j = 3 To 258 '表2身份证字段是3行到258行
If Sheets("表1").Cells(i, 17) = Sheets("表2").Cells(j, 8) Then '表1身份证是在17列，表2身份证在第8列
Sheets("表1").Cells(i, 18) = "已存在" '存在时进行标记，并在18列写已存在
End If
Next j
Next i
End Sub

Answer 2

不清楚您指的“差异”是什么？如果是差别，可以用以下方法：
1、可以用条件格式，将两组有差别的数据，用不同颜色标记出来；
2、可以将两组数据做减法，结果不为0，则表示两组数据有差别；
3、用函数、条件进行判断，判断两者内容是否一致；
如果差异是指的两组数据，在同类显著水平上，是否有显著性的差异，可以采用方差分析法。