c_c_lai

回復 3# happycoccolin
' 我替 zz5151353  大大回答妳的問題：

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, "、")
   
10. End Function

複製代碼

下載 (73.74 KB)

2012-8-3 10:51

c_c_lai

回復 7# happycoccolin
是否如此？

下載 (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"、
   
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, "、")
    
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

複製代碼

123-0507.rar (15.94 KB)

下載次數: 10

2014-5-7 18:33

c_c_lai

回復 10# happycoccolin
因家中七月有事，
不好意思，這麼久才瀏覽訊息。
看了妳描述的，
說真地還不清楚妳真正要的是什麼，
能否清楚地說明前因後果？