|
看了好半天,最后还是直接进文件才猜出了个大概。你最关键的地方没说:小区是分版块的;
还有两个错误:
辽源:工作表名称与板块名称不符
周家嘴路东:工作表名称多一个空格,空格也是字符文字;
下面是代码,看起来像那么回事,但数据对不对你自己审核,我看不明白:
注:数据中手机号存放不规范,导致数据处理会出错,比如:黄兴的前两个手机号错位了,这个我没办法,数据不规范,读取出来的也就不规范了;
代码要放在“数据”表中执行,切记:
For i = 3 To Worksheets.Count
Worksheets(i).Range("a3:k1000").ClearContents
Next i
Dim zd
Set zd = CreateObject("scripting.dictionary")
For i = 2 To 100
For k = 5 To 1000
If IsEmpty(Worksheets("版块").Cells(k, i)) Then
Exit For
End If
s = Worksheets("版块").Cells(k, i)
zd(s) = Worksheets("版块").Cells(4, i)
Next k
Next i
For i = 3 To [a10000].End(3).Row
s = Split(Cells(i, 1), " ")
If zd.exists(s(0)) Then
For k = 3 To 1000
If IsEmpty(Worksheets(zd(s(0))).Cells(k, 3)) Then
For j = 0 To UBound(s)
Worksheets(zd(s(0))).Cells(k, 3 + j) = s(j)
Next j
Exit For
End If
Next k
End If
Next i
|
|