在继续找高手你问个问题.就是说在我问你的问题的基础上加上个判断.查找替换成功后不提示信息,若果查找替换不成功就提示查找替

Sub ddd()
Dim i,a,m As Integer
Application.ScreenUpdating = False
Sheets("Sheet1").Select
a = Range("a65536").End(xlUp).Row
m = 0
For i = 1 To a
If Sheets("Sheet1").Cells(i,1) = Sheets("Sheet2").Cells(1,1) And Sheets("Sheet1").Cells(i,6) = Sheets("Sheet2").Cells(2,2) Then
Sheets("Sheet1").Cells(i,11) = Sheets("Sheet2").Cells(3,2)
m = 1
End If
Next
Sheets("Sheet2").Select
Application.ScreenUpdating = True
If m = 0 Then MsgBox "查找替换失败"
End Su