请教高手，关于excle筛选问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 20:09:20
我要整理一本物流指南，做成电子版的，每家物流公司都包涵了每天往返的专线，还不是一条，还有很多的配送城市，以及不同地区的地址和电话，要我整理成可以筛选的那种，只要一点击需要的城市，所有的相同的信息全跳出来，我真的没办法了，请教各位高手指点啊，在线等，谢谢了。
我的意思就是，比如：广州-深圳，广州-云南，南京-济南-广州，云南-济南，只要点击广州，所有包涵了广州的信息都跳出来，点击云南所有包涵云南的信息都跳出来。不知道我表达清楚没有，急啊！

建一张新的工作表，命名为“查询结果”（不要引号）。
打开VBA编辑器，拷贝下代码，再运行disp() 这个宏，会跳出一个窗口要求你输入想查的内容，比如广州，完成后你会在“查询结果”工作表上得到你想要的结果，
注意：查询前（也就是运行disp()这个宏之前）应激活你想查询的工作表，也就是你的物流指南数据所在表格。
提示：下一次查询前请清空以前的查询结果。

Sub disp()
Dim i As Integer
Dim a As String
a = InputBox("请输入您想查询的内容")
a = "*" & a & "*"
i = 0
For Each c In [A1:F350] '此范围可修改为你想要的
If c Like a Then
i = i + 1
Sheets("查询结果").Cells(i, 1).Value = c
End If
Next

End Sub

把各个项目都列出来，设在表头，用自动筛选，想筛哪种筛哪种，方便

你要整理的资料里头有哪些个关键词哦？物流公司、城市、地址、和电话？你可以加个时间进去，然后每个关键词都加个自动筛远，试试！