Question

用vba做一个excel 查询系统，可以直接输出所有符合条件的查询结果

在sheet2表输入一个查询关键词后sheet1表中符合条件的项直接写入在sheet2，因为符合条件的项有多行，所以用vlookup无法解决，求vba。
sheet1的列包含编号、产品名称、产地、质量、温度、湿度等数据，在各行中产品名称或产地有共同项。例如在sheet2中输入广州（产地），在sheet2会显示sheet1中所有包含广州的数据（质量、温度、湿度等同事显示），跟火车票查询呢返回的结果差不多

Answer 1

利用高级筛选能从从sheet1复制到源表中，但不能复制到sheet2中。要实行得vba。
但高级筛选每次改变条件后不能自动更新，每次都要执行一次。

利用自动筛选，找出广州的记录后再复制一次呢？这个简单多了，也能满足你的要求。

Answer 2

没有具体要求，大概编段代码
假设在sheet2 的A1输入关键字后，点击按钮，执行下面的代码
Sub 查询()
Dim rng As Range, r%, sh As Worksheet, s As String
Set sh = Sheet1
s = Range("a1")
r = Range("a65536").End(3).Row + 1
For Each rng In sh.UsedRange
If rng.Value Like "*" & s & "*" Then
sh.Rows(rng.Row).Copy Destination:=Rows(r)
r = r + 1
End If
Next rng
End Sub

Answer 3

加Q 673827016