下载附件试试, 在F1输入姓名,看看是不是你要的结果。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ra As Range
If Target.Address = "$F$1" Then
Application.EnableEvents = False
If Not IsEmpty(Target) Then
Set Ra = Columns("A").Find(Target)
If Not Ra Is Nothing Then
If Ra.Font.ColorIndex = 3 Then
[F3] = "有重复"
Else
Ra.Font.ColorIndex = 3
Range("F3").ClearContents
[F2] = [F2] + 1
End If
[F5] = Ra.Offset(, 2)
Else
[F3:F5].ClearContents
End If
Else
[F3:F5].ClearContents
End If
Application.EnableEvents = True
End If
End Sub
什么是vup?
某个单元值的值加1,是哪个单元格?
某个单元格提示重复输入,是哪个单元格?
第一,第二,三,四,,次输入,是在哪里输入?
VUP是什么意思?