求助贴

ww07020212

各位大佬，我在工作中遇到一个问题，就是上级下发给我们很多地址数据，我们需要根据不同的地址分配给各个社区。我这里有各个社区分别的地址目录，请问怎样编程才能分拣出来。此外我自己做了一个小程序，但是因为同一个路名底下有多个社区管理，导致分配不准确，所以还请大神给看看。谢谢了！！！

ww07020212

我自己写的小程序，能解决大部分问题，但是遇到比如说人民路60号的时候，兴和社区管理人民路6号；福寿 社区管理人民路60号。我写的小程序就自动选择兴和社区了，但是这个属于福寿社区的情况。所以现在我这头就想是否应该两个循环统计目标列包涵查找列分别包涵了多少个连续字符，再去统计哪个连续字符多？然后再选择对应的社区？？这有些复杂，我就不回编写了。

ww07020212

Sub 查找()
    Dim r, i, j, a, b, c, d '定义若干变量，用于符合包涵条件的单元格进行整体替换。
            Set a = Range("a" & Rows.Count).End(xlUp) '设置比对两列的下限值。
            Set b = Range("c" & Rows.Count).End(xlUp)
                c = a.Row '求两个下限值
                d = b.Row
                    For i = 1 To c '双重循环
                        For j = 1 To d
                            If InStr(Cells(i, "a"), Sheet6.Cells(j, "c")) > 0 Then '如果母数据包涵子数据，则，进行整体单元格替换，并且变色。
                                Cells(i, "a") = Sheet6.Cells(j, "c").Offset(0, 1)
                                Cells(i, "a").Interior.Color = RGB(139, 190, 221)
                           
                            End If
                        Next
                    Next
       Sheets("Sheet1").Activate
                    
End Sub