yen956

¸Õ¸Õ¬Ý:

1. Private Sub CommandButton1_Click()
   
2.     Dim Sh1 As Worksheet, Sh2 As Worksheet
   
3.     Dim Rng1 As Range, Cel As Range, Fst As String
   
4.     Dim I As Integer, Cnt As Integer, R1 As Integer
   
5.     Set Sh1 = Sheets("Sheet1")
   
6.     Set Sh2 = Sheets("Sheet2")
   
7.     Sh1.[B1:P10] = ""
   
8.     R1 = Sh1.[A65536].End(xlUp).Row
   
9.     For I = 1 To R1
   
10.         Set Rng1 = Sh1.Cells(I, 1)
    
11.         Cnt = 0
    
12.         Set Cel = Sh2.[A:A].Find(Rng1, After:=Sh2.[A65536], Lookat:=xlWhole)      'AÄ椤´M§ä
    
13.         If Not Cel Is Nothing Then
    
14.             Fst = Cel.Address   '«O¦s²Ä¤@­Ó¦ì§}
    
15.             Do
    
16.                 Cnt = Cnt + 1
    
17.                 Rng1.Offset(, Cnt) = Cel.Offset(, 1)
    
18.                 Set Cel = Sh2.[A:A].FindNext(Cel)     '´M§ä¤U¤@­Ó
    
19.             Loop Until Fst = Cel.Address         '¦^¨ì²Ä¤@­Ó¦ì§}
    
20.         End If
    
21.     Next
    
22. End Sub

½Æ»s¥N½X

¤U¸ü (74.49 KB)

2015-12-9 12:46