Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long, R As Long
If Target.Column = 2 Then
R = Target.Row
For I = 1 To R - 1
If Cells(I, 2).Value = Target.Value Then Exit For
Next I
If I < R Then
Target.Value = Empty
MsgBox "В ячейке " & I & " уже есть такое число"
End If
End If
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 108