rowcount= DataTable.GetSheet("Action1").getrowcount
For i = 1 To rowcount Step 1
DataTable.SetCurrentRow i
data1=DataTable("A","Action1")
For j = i+1 To rowcount Step 1
DataTable.SetCurrentRow j
data2=DataTable("A","Action1")
If data2=data1 Then
MsgBox data1&"="&data2
End If
Next
Next
判断datatable中的数据是否有重复数据
最新推荐文章于 2023-07-19 10:17:27 发布
本文介绍了一个使用VBA进行数据比对的例子。通过循环遍历数据表中的记录,并比较相同字段的数据是否一致,若一致则弹出消息框显示结果。此方法适用于Excel环境中进行数据校验。

1913

被折叠的 条评论
为什么被折叠?



