Excel中，如果在同一列出现两个同样的值，则弹出对话框提示错误，并显示出现的相同值，这个VBA如何写？

Question

如题所述

Answer 1

你是想在输入的时候提示吗？例如A列
代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r&, i&
If Target.Column = 1 And Target.Count = 1 Then
r = Target.Row
i = Application.CountIf(Range("A1:A" & r), Target.Value)
If i > 1 Then
MsgBox Target.Value & "重复了"
End If
End If

Answer 2

假如A列
for i=1 to usedrange.rows.count
for j=i +1 to usedrange.rows.count
if cells(i,1)=cells(j,1) then
msgbox "A列第" & i & "行值：" & cells(i,1) & “和第" & j & "行值重复。"
exit for
end if
next j
next i