|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
sheet1表格有两列,A列为辖区名字,B列为村名称。sheet2,“O”列为某个人的具体居住地址,“N”列为空。如果sheet2“O”列某行包含sheet1 “B”列某行的村名字,返回sheet1“A”列辖区名字到对应sheet2“N”列。这样写还是不对,哪里错了?
Sub 付村()
Dim i As Integer, x As Integer
Dim cz As String, pq As String
x = 2
Do Until Sheets("sheet2").Cells(x, "O") = ""
For i = 2 To 89
cz = Sheets("sheet1").Cells(i, "B")
If cz Like Sheets("sheet2").Cells(i, "O") Then
Sheets("sheet2").Cells(i, "N") = Sheets("sheet1").Cells(i, "A")
End If
Next i
x = x + 1
Loop
End Sub
|
|