c_c_lai

¦^´_ 3# happycoccolin
' §Ú´À zz5151353  ¤j¤j¦^µª©pªº°ÝÃD¡G

1. Function zz(rng As Range, Page As Range, FVal) As String
   
2.     Dim SN()
   
3.     For i = 1 To rng.Count
   
4.         If rng(i) = FVal Then
   
5.             ReDim Preserve SN(s)
   
6.             SN(s) = Page(i): s = s + 1
   
7.         End If
   
8.     Next
   
9.     zz = Join(SN, "¡B")
   
10. End Function

½Æ»s¥N½X

¤U¸ü (73.74 KB)

2012-8-3 10:51

c_c_lai

¦^´_ 7# happycoccolin
¬O§_¦p¦¹¡H

¤U¸ü (77.19 KB)

2014-5-7 18:31

1. Function zz(rng As Range, Page As Range, FVal) As String
   
2.     Dim SN(), flag As Boolean
   
3.    
   
4.     For i = 1 To rng.Count               '  rng.Count = 14
   
5.         If rng(i) = FVal Then            '  rng(1) = "1234-5678"¡B
   
6.             If s > 0 Then
   
7.                 flag = True
   
8.                 For j = 0 To s - 1
   
9.                     If (SN(j) = Page(i)) Then
   
10.                         flag = False
    
11.                         Exit For
    
12.                     End If
    
13.                 Next j
    
14.             Else
    
15.                 flag = True
    
16.             End If
    
17.             
    
18.             If flag Then
    
19.                 ReDim Preserve SN(s)
    
20.                 SN(s) = Page(i): s = s + 1   '  Page(1) = "aa"
    
21.             End If
    
22.         End If
    
23.     Next
    
24.     zz = Join(SN, "¡B")
    
25. End Function
    
26. 
    
27. Sub Test()
    
28.     With Sheets(2)
    
29.         str1 = zz(.Range("A1:A14"), .Range("B1:B14"), "1234-5678")
    
30.     End With
    
31.     MsgBox str1
    
32. End Sub

½Æ»s¥N½X

123-0507.rar (15.94 KB)

¤U¸ü¦¸¼Æ: 10

2014-5-7 18:33

c_c_lai

¦^´_ 10# happycoccolin
¦]®a¤¤¤C¤ë¦³¨Æ¡A
¤£¦n·N«ä¡A³o»ò¤[¤~ÂsÄý°T®§¡C
¬Ý¤F©p´y­zªº¡A
»¡¯u¦aÁÙ¤£²M·¡©p¯u¥¿­nªº¬O¤°»ò¡A
¯à§_²M·¡¦a»¡©ú«e¦]«áªG¡H