ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ±qÀx¦s®æ¥ªÃä¶}©l·j´M¦r¦ê

¸Õ¸Õ¬Ý:
  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

TOP

¸É¹Ï
test.gif
2015-11-24 11:38

TOP

¨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
test.gif
2015-11-24 13:56

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2015-11-25 19:59 ½s¿è

ÁÙ¬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
test.gif
2015-11-25 19:56

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD