Dim pdr As DataRow = Nothing
For Each dr1 As DataRow In DataTables("sheet1").DataRows
If pdr Is Nothing orelse pdr("第一列") <> dr1("第一列") orelse pdr("第二列") <> dr1("第二列") Then
msgbox("不重复")
End If
pdr = dr1
Next
加好友 
发短信
Post By：2017/3/30 13:01:00 [显示全部帖子]
