yen956

¸Õ¸Õ¬Ý:

1. Sub test()
   
2.     [B:B] = ""
   
3.     For i = 1 To [A65536].End(xlUp).Row
   
4.         For j = 1 To [C1].End(xlDown).Row
   
5.             c = InStr(Cells(i, 1), Cells(j, 3))
   
6.             If c > 0 Then
   
7.                  Cells(i, 2) = Cells(j, 3)
   
8.             End If
   
9.         Next
   
10.     Next
    
11. End Sub

½Æ»s¥N½X

yen956

¸É¹Ï

¤U¸ü (55.2 KB)

2015-11-24 11:38

yen956

¨S¦Ò¼{¨ì ¥þ¨ú¥X,
¥þ¨ú¥X¦p¤U:

1. Private Sub CommandButton1_Click()
   
2.     Dim I As Integer, J As Integer, Col1 As Integer, Num As Integer
   
3.     [B:H] = ""
   
4.     For I = 1 To [A65536].End(xlUp).Row
   
5.         Col1 = 2
   
6.         For J = 1 To [J1].End(xlDown).Row
   
7.             Num = InStr(Cells(I, 1), Cells(J, 10))
   
8.             If Num > 0 Then
   
9.                  Cells(I, Col1) = Cells(J, 10)
   
10.                  Col1 = Col1 + 1
    
11.             End If
    
12.         Next
    
13.     Next
    
14. End Sub

½Æ»s¥N½X

¤U¸ü (41.71 KB)

2015-11-24 13:56

yen956

ÁÙ¬O­ãª©¤jªº¤½¦¡§Q®`!!
¥Ñ¥ª¦Ü¥k¨Ì§Ç¥þ¨ú¥X¡G

1. Private Sub CommandButton1_Click()
   
2.     Dim I As Integer, J As Integer
   
3.     Dim Col1 As Integer, Num As Integer
   
4.     [B:H] = ""
   
5.     For I = 1 To [A65536].End(xlUp).Row
   
6.         For J = 1 To [J1].End(xlDown).Row
   
7.             Num = InStr(Cells(I, 1), Cells(J, 10))
   
8.             If Num > 0 Then
   
9.                  Cells(J, 11) = Num
   
10.             Else
    
11.                  Cells(J, 11) = 10000
    
12.             End If
    
13.         Next
    
14.         [J:K].Sort Key1:=Range("K1"), Order1:=xlAscending, Header:=xlNo
    
15.         Col1 = 2
    
16.         For J = 1 To [J1].End(xlDown).Row
    
17.             If Cells(J, 11) < 9999 Then
    
18.                 Cells(I, Col1) = Cells(J, 10)
    
19.                 Col1 = Col1 + 1
    
20.             End If
    
21.         Next
    
22.     Next
    
23.     [K:K] = ""
    
24. End Sub

½Æ»s¥N½X

¤U¸ü (48.79 KB)

2015-11-25 19:56