中国卡通人物名字…

把两个宏整合到一起后，代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Range,str As String,isFind As Boolean
Application.EnableEvents=False
isFind=False
str=Target.Text
If str<>""Then
For Each m In Range(Range("A1"),ActiveCell.SpecialCells(xlLastCell))
If Not(m.Row()=Target.Row()And m.Column()=Target.Column())And m.Text=str Then
m.EntireRow.ClearContents
Target.EntireRow.ClearContents
If m.Row()()Then Cells(m.Row(),1).Select Else Cells(Target.Row(),1).Select
isFind=True
Exit For
End If
Next m
If Not isFind Then
If Target.Column()=1 Then
Cells(Target.Row(),4).Select
ElseIf Target.Column()=4 Then
Cells(Target.Row()+1,1).Select
End If
End If
End If
Application.EnableEvents=True
End Sub
注意，这里的检查是区分大小写的！另，对于楼主所说的自动保存，其实在你每扫描一**输入一个单元格数据时，按默认设置（自动刷新），Excel都会刷新一次，无需任何额外的操作。或者你可以通过修改Excel本身的保存设置中的时间间隔来缩短自动保存时间。这个自动刷新呢，如果一定要自己写代码，也不是不可以写，只是它会占用较大的系统资源，可能会严重影响电脑的使用。（其实如果你没有输入/修改任何数据，多次刷新也没有意义呀，在你输入时Excel已经会自动刷新了，所以没必要再弄定时刷新功能）
GoodLuck！