主题：[求助]如果“电话”列中的某条信息有重复值，则在该条信息和重复信息后面“有效性”列中填写“N”，如不重复则填写“Y”。

你的图片看不到，图片你需要上传，别人才能看得见。

可以在命令窗口执行：

For Each dr As Datarow in DataTables(" 表名").DataRows

    If DataTables("表名").Compute("Count(电话)", "电话 = '" & dr("电话") & “’” =1 Then

       dr("有效性") = "Y"

    Else

       dr("有效性") = “N”

    End If

Next

其实不用写代码也行，可以看看：
http://www.foxtable.com/help/topics/1478.htm