请问如何从详细地址中筛出哪些是贫困县的

五湖散人

求助，学生助学金系统要把贫困县的挑出来，但手头上只有详细地址和贫困县列表，怎么把里面是贫困县的选出来？SOS

grf1973

1. Sub 筛选()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     brr = Sheet2.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         dz = arr(i, 1)
   
6.         For j = 2 To UBound(brr)
   
7.             If InStr(dz, brr(j, 1)) > 0 Then arr(i, 2) = "是": Exit For
   
8.         Next
   
9.     Next
   
10.     Sheet1.[a1].CurrentRegion = arr
    
11. End Sub
    

复制代码

grf1973

请看附件。

五湖散人

！谢谢！！！！

五湖散人

grf1973 发表于 2013-12-12 13:55
请看附件。

谢谢兄弟
了