For i = 1 To 19
For j = 1 To 19
If i <> j Then
If test(1, i) <> "" And test(1, j) <> "" And test(1, i) <> "0" And test(1, j) <> "0" Then
If test(1, i) = test(1, j) And test(0, i) <> test(0, j) Then
MsgBox("数据检测不通过! ")
End If
End If
End If
Next j
Next i