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

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

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

¦U¦ì¤j¤j¦n,¤p§Ì§Ú·Q½Ð±Ð¤@­Ó°ÝÃD

§Ú·Q¦b³o¤@¨Ç¸ê®Æ¤¤·j´M¥X"cotton","polyester","leather","polyurethane"µ¥µ¥¦³Ãö§÷½èªº­^¤å
¦ý³o¨Ç§÷½è¦WºÙ·|¦P®É¥X²{¦b¦P¤@®æÀx¦s®æ
¦ý¤p§Ì§Ú¥u»Ý­n±q¥ªÃä¶}©l·j´M¨ì§Ú­nªºÃöÁä¦r
¨Ã¦bÄæ¦ìB±a¥XÃöÁä¦r§Y¥i,¦p¹Ï¤ù¤¤©Ò¥Ü
·PÁ¦U¦ì¤j¤jªºÀ°§U,ÁÂÁÂ.

¥¼©R¦W.jpg (184.19 KB)

¥¼©R¦W.jpg

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

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

¸É¹Ï
test.gif

TOP

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

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

TOP

·PÁ¦U¦ì¤j¤jªºÀ°¦£,¸g´ú¸Õ«á¬O¦¨¥\ªº,¤p§Ì§Ú·P¿E¤£ºÉ

TOP

yen956ª©¤j±z¦n,§Úµo²{¤@­Ó°ÝÃD,·í¦b±a¥XÄæ¦ìB,C,D,ªº®É­Ô,¸ê®Æ·|¥ý¥HÄæ¦ìJ1,J2,J3,J4¨Ì§Ç±a¥X
¨Ò¦pÄæ¦ìA="SDLFSKLSDpolesterSDASDcottonDFDSCCV",
Äæ¦ìB=cotton,Äæ¦ìC=polester
­Y§Ú·Q±qÄæ¦ìAªº¥ªÃä¶}©l·j´M§ì¥XÃöÁä¦r
Äæ¦ìB§Ú§Æ±æ=polester ,Äæ¦ìC=cotton
³o¼Ë¸Ó¦p¦ó¼¶¼gµ{¦¡©O?

TOP

¢Õ¢°¡G¢Õ¢³
cotton
polyester
leather
polyurethane


¢Ð¢°¡D°}¦C¤½¦¡¡G¥k©Ô¥|®æ¡A¤U©Ô¡]¨Ì¥X²{¦¸§ÇÅã¥Ü¡^
=INDEX($G:$G,RIGHT(SMALL(IF(1-ISERR(FIND($G$1:$G$4,$A1)),FIND($G$1:$G$4,$A1)*10^5+ROW($1:$4),10^9+4^8),COLUMN(A$1)),5))&""


¡Õ°}¦C¤½¦¡¡Ö¿é¤Jªk¡G
¿é¤J©Î­×§ï¤½¦¡§¹¦¨«á¡A´å¼Ð¯d¦b¡e½s¿è¦C¡f¡A¥ý¤£­n«öEnter¡A
¦P®É«ö¦í¡eShift + Ctrl¡f¤£©ñ¡A¦A«ö¡eEnter¡f¡C

TOP

¦^´_ 9# ­ã´£³¡ªL

·PÁ­㴣³¡ªLª©¤jªº¨ó§U,ÁÂÁÂ.

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD