excel查询关键字并输出所有结果？

我会在Change事件中编写代码如下

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("E1")) Is Nothing And Target.Count = 1 Then

n=2

with sheet1

for i=2 to .cells(.rows.count,2).end(xlup).row

if .cells(i,2) like "*"& .cells(1,5) & "*" then

.cells(n,5)=.cells(i,2)

n=n+1

end if

next

end with

end if

End Sub

B2用公式：

=IF(SUM(COUNTIF(A2,"*"&IF(C$2:C$102"