Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
n = [A65536].End(3).Row
If Target.Row = n + 1 And Target.Column = 4 Then
Cells(n + 1, 1) = Cells(n, 1) + 1
Dim d, a, i&
Set d = CreateObject("scripting.dictionary")
a = Range("b1:d" & n + 1)
For i = 3 To n
s = a(i, 1) & a(i, 2) & a(i, 3)
d(s) = ""
Next
s = a(i, 1) & a(i, 2) & a(i, 3)
If d.Exists(s) Then MsgBox "BCD记录重复"
Set d = Nothing
End If
Application.EnableEvents = True
End Sub
这段代码是：判断B，C，D三列是否与上面的数据重复。
想再添加两个功能：
1、重复时，弹窗提醒，点：确定，输入值；点：取消，清空最后一次录入的单元格。
2、A列的序号自动加，边框自动添加。
' 以上，烦请帮忙完善，谢谢~~
图片是报表格式
|
