小白新学，这个代码怎么写？

catkining

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

sj15627581616

Sub 付1村()
r = Sheet2.Cells(Rows.Count, "o").End(3).Row
e = Sheet1.Cells(Rows.Count, 2).End(3).Row
For i = 2 To r
For t = 2 To e
If InStr(1, Sheet2.Cells(i, "O"), Sheet1.Cells(t, 2)) Then
Sheet2.Cells(i, "n") = Sheet1.Cells(t, 2)
End If
Next
Next
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Dim reg As New RegExp
   
6.   Set d = CreateObject("scripting.dictionary")
   
7.   With Worksheets("sheet1")
   
8.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.     arr = .Range("a2:b" & r)
   
10.     For i = 1 To UBound(arr)
    
11.       d(arr(i, 2)) = arr(i, 1)
    
12.     Next
    
13.   End With
    
14.   With reg
    
15.     .Global = False
    
16.     .Pattern = Join(d.keys, "|")
    
17.   End With
    
18.   With Worksheets("sheet2")
    
19.     r = .Cells(.Rows.Count, 15).End(xlUp).Row
    
20.     arr = .Range("n2:o" & r)
    
21.     For i = 1 To UBound(arr)
    
22.       Set mh = reg.Execute(arr(i, 2))
    
23.       If mh.Count > 0 Then
    
24.         xm = mh(0)
    
25.         If d.exists(xm) Then
    
26.           arr(i, 1) = d(xm)
    
27.         End If
    
28.       End If
    
29.     Next
    
30.     .Range("n2:o" & r) = arr
    
31.   End With
    
32.       
    
33.   
    
34. End Sub
    

复制代码

chxw68

详见附件。

excel海

用你的代码改的

1. Sub 付村()
   
2.     Dim i As Integer, x As Integer
   
3.     Dim cz As String, pq As String
   
4.     x = 2
   
5.     Do Until Sheets("sheet2").Cells(x, "O") = ""
   
6.         For i = 2 To 89
   
7.             cz = Sheets("sheet1").Cells(i, "B")
   
8.             If Sheets("sheet2").Cells(x, "O") Like "*" & cz & "*" Then
   
9.                 Sheets("sheet2").Cells(x, "N") = Sheets("sheet1").Cells(i, "A")
   
10.             End If
    
11.         Next i
    
12.         x = x + 1
    
13.     Loop
    
14. End Sub

复制代码

zzj198237

for 前进加 with 就完美了

catkining

chxw68 发表于 2020-2-28 22:45
详见附件。

大神，谢谢你  这个代码太精简了，学习了。因为刚学习到这里，你楼上的那个我还是没怎么看懂，下回慢慢研究。再问您一个问题，如果点一下代码，把不同乡镇（“N”列）的筛选出来，然后每个乡镇另存为一个表格怎么处理呢？另存名称格式：日期 +上午/下午+乡镇名称

catkining

excel海 发表于 2020-2-28 23:11
用你的代码改的

再问您一个问题，如果点一下代码，把不同乡镇（“N”列）的筛选出来，然后每个乡镇另存为一个表格怎么处理呢？另存名称格式：日期 +上午/下午+乡镇名称
因为我还没有学到，真是不会。。。。正巧手头又有这样的工作，请指教。

catkining

chxw68 发表于 2020-2-28 22:44

所实话，这个我还真没看懂。刚学习，下回慢慢研究，受教了

chxw68

catkining 发表于 2020-2-29 14:20
所实话，这个我还真没看懂。刚学习，下回慢慢研究，受教了

这段代码用到了字典和正则表达式，确实不适合初学者学习。