做个保存按钮:
CurrentTable.Select(0,CurrentTable.cols("要判断的列").index )Syscmd.Filter.ShowSameValues()If CurrentTable.count > 0 messagebox.show("有重复内容") End If