求教

与排序无关吧

可以用条件格式使之字体颜色与填充色相同，就显示不出来了。

Sub test()
Dim rngA As Range
Dim rngB As Range
Set rngA = Range("B4:D8")
Set rngB = Range("G4:J12")
For Each cel In rngB
Set c = rngA.Find(cel.Value, LookIn:=xlValue)
If c Is Nothing Then
cel.Offset(13, 0) = cel
Else
cel.Offset(13, 0) = ""
End If
Next
End Sub

R7=IF(COUNTIF($C$7:$E$10,I7),"",I7)
右拉下拉