Question

EXCEL VBA编程宏搜索特定文字显示对应结果，求教！  各位大神，希望能指教我搜索特定

EXCEL VBA编程宏搜索特定文字显示对应结果，求教！ 
各位大神，希望能指教我搜索特定文字并显示对应结果的VBA程序如何编写，在此先谢过了！ 
（有上传EXCEL）比如有两个字段“家庭地址”A列、“地区”F列（每个字段包含大量信息，即有很多个家庭地址、很多个地区名字），我想设一个VBA程序，对每一个“家庭地址”里面的文字（长短不一）进行检索，是否属于地区F列的任一地区，如果是的就显示为对应的地区！ 
比如家庭地址“塘厦横塘社区村”，对地区列的名称逐一查找（地区列有“塘厦”两字），搜索的结果应显示“塘厦”。 
由于家庭地址A列有大量数据，搜索量相当大，因此想设一个VBA程序，有上传附件，望大家赐教！欢迎追问！ 
编程代码麻烦复在回答上即可，谢谢。 

Answer 1

把样表文件发到我的邮箱（个人资料里找），我可帮你写VBA代码

追问

那麻烦你留个邮箱，谢谢

追答

个人资料里有

追问

大神级人笔，将我运行时间差不多10分钟的疑问，解决变成12秒的事情！

Answer 2

函数就可以达到效果的吧，太多了，运行时间长？

追问

运行时间太长太长！家庭地址就有十几万条记录…

追答

没解决的话给个邮箱，我发个给你。或者你把文件发过来《632》《7671》《31》
Sub 匹配文本()
Dim m, n As Integer, st As String
m = Sheet1.Cells(Rows.Count, 6).End(xlUp).Row
n = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To m
st = Sheet1.Cells(i, 6)
For j = 2 To n
If Sheet1.Cells(j, 1) Like "*" & st & "*" Then
Sheet1.Cells(j, 2) = st
End If
Next
Next
End Sub

追问

感谢你的帮助，不过你的代码运行起来也要2分钟（我自己的代码要差不多10分钟），另一位大神只需要12秒，所以我采纳他的，请见谅哈

追答

嗯，没有测试，这个全循环了，换一种循环要快很多

Answer 3

明天来看看……