Union方法，公交站对应的是公交的第几站

ning84

兰埔东有三张照片，对应的是公交第三站。




采用的是Union方法。

1. Sub lll()
   
2.     Dim ii, kk
   
3.     Dim oRng As Range, Rng As Range, Rng1 As Range, Rng2 As Range
   
4.         Set Rng1 = Cells(5, "B").CurrentRegion
   
5.         Set Rng2 = Cells(5, "G").CurrentRegion
   
6.         For ii = 1 To Rng2.Rows.Count
   
7.             Set Rng = UnionRng(Rng1, Rng2(ii, 1))
   
8.             Rng2(ii, 5) = "=" & Rng.Address(0, 0)
   
9.             Rng(, 0).Resize(Rng.Rows.Count, 1) = "第" & ii & "站'"
   
10.             
    
11.         Next ii
    
12. End Sub
    
13. 
    
14. 
    
15. 
    
16. Function UnionRng(Rng As Range, Str)
    
17.     Dim oRng As Range
    
18.         Set oRng = Rng.Find(Str)
    
19.         Debug.Print oRng.Address
    
20.         For ii = 1 To Rng.Rows.Count
    
21.             If Rng(ii, 1) = Str Then
    
22.                 Set oRng = Union(oRng, Rng(ii, 1))
    
23.                 Debug.Print oRng.Address
    
24.             End If
    
25.         Next
    
26.         Set UnionRng = oRng
    
27. End Function
    
28. 
    

复制代码