Sub s()
Set d = CreateObject("scripting.dictionary")
c = InputBox("请输入列标:")
n = Cells(Rows.Count, c).End(3).Row
For i = 1 To n
a = Cells(i, c).Text
If a <> "" Then
If d.exists(a) Then
MsgBox c & "列内容有重复!"
Exit Sub
Else
d.Add a, ""
End If
End If
Next
MsgBox c & "列内容无重复!"
End Sub
追问我想要A列输入一个值,输入单元格A列上面重复时,回车后自动带入B~D列对应的,您的代码不对,请帮忙再看下,谢谢!
在吗