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

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

¦P¤@®æ¡e¦P®É¡f§t¦³¡e¦h­Ó¡fÃöÁä¦r, ¦p¦ó¨ú¡H ¥H¦ó¬°Àu¥ý¡H¡@©Î¥þ¨ú¥X¡H

TOP

¸É¹Ï
test.gif

TOP

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

http://blog.xuite.net/hcm19522/twblog/359554303

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD