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

显示全部楼层 · 2013-1-14 22:19:44

你是想在输入的时候提示吗？例如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...

千问 · 2013-1-14 22:19:44

假如A列fori=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) & “和第" & ...