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

[µo°Ý] Ãö©ó¦¹ª¬ªp¦³¤ñVLOOKUP§ó¦nªº¤èªk¶Ü?

[µo°Ý] Ãö©ó¦¹ª¬ªp¦³¤ñVLOOKUP§ó¦nªº¤èªk¶Ü?

1¤Ñªºµæ³æ¦]¬°¦­¤W¦Y¯À,©Ò¥H¤@±iªí»Ý­n¸§¯À´À´«
¥Ø«e¥H¤u§@ªí"a1"ªºª¬ªp°µ§P§O,¦p¿ï¾Ü«D¯Àªº¦bµæ³æ·|´À´«¦¨¸§µæ,¤u§@ªí"a2"¤U©Ô§Y¥i¥X²{¸§µæ
¦p¿ï¾Ü¯Àªº¬ÛÃöª¬ªp§Y¤U©Ô¥X²{¯Àµæ

¦ý¦]ª¬ªp¹L¦h,¯à§_°µ¨ì¦³"¯À"³o­Ó¦r¤@«ßÂk¨ì¯À,¨ä¥L«hÂk¨ì¸§

¦]µæ³æ¦³ªñ¤dºØ~¦pªG­n¨Ï¥Î¥Ø«evlookup¤è¦¡«hµæ³æÂX¤j¦Üªñ¸U¦C
[attach]21581[/attach]
[attach]21582[/attach]

¥»©«³Ì«á¥Ñ koo ©ó 2015-7-30 20:43 ½s¿è

­n¤£­n¦Ò¼{¥ÎVBA¥ý§â¯À¸§¤ÀÂ÷¨ì¨ä¥L¤u§@ªí
  1. Sub test()
  2. k = 1
  3. j = 1
  4. For Each c In Range("A1:B300")  ''½d³ò¦Û¦æ­×§ï
  5. i = InStr(1, c.Value, "¯À")
  6. If i > 0 Then
  7.     Sheets(2).Cells(k, 1) = c.Value
  8.     k = k + 1
  9. Else
  10.     Sheets(3).Cells(j, 1) = c.Value
  11.     j = j + 1
  12. End If
  13. Next c
  14. End Sub
½Æ»s¥N½X
¥t>>´X¤dµ§¥Î¤U©Ô¦¡²M³æ¦ü¥G¦³ÂI¤Óªø§a!!!

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-7-31 08:13 ½s¿è

¦^´_ 2# koo


    ¤£¬O³£¦b¤@­Ó¤U©Ô²M³æ.¤@­Ó¦­,¤È,±ß³£¦U¤­¹Dµæ¥ª¥k ¨C¹Dµæªº¤U©Ô²M³æ¬ù10¼Ë¤@­Ó¤ë¨C¤Ñ³£¤£¦P©Ò¥H¤~·|¨ì¼Æ¤dµ§
¥Ø«e¤w³]©w¦nªñ¤d­ÓÀx¦s®æ¤º³£³]©w¦U¦Ûªº¤U©Ô²M³æ,¬Q¤Ñ¬Ý¨ì¤å³¹¥i¥Îleft©Îright¨ú¥Xª¬ªp§PÂ_ªºÀx¦s®æ ¨ú¯À©Î¸§¥X¨Ó§PÂ_
¦AÅýµæ³æ¥HvlookupŪ¨ú§PÂ_«á¦Û°Ê´À´«­ì©lµæ³æªº¤º®e¸§/¯À´À´««á,¤U©Ô²M³æ¥´¶}§Y¬O¯À­¹
¦]¦³®É­Ô¥u¦³¦­¤W¬O¯À, ¨ä¥L¨âÀ\³£¬O¸§©Î¬O¥u¦³¬Y´X¤Ñ¬O¯À,¤£¬O©T©wªº  ©Ò¥H¨S¿ìªk¥ÎVBA

¥t¥~ÁÂÁÂÀ°¦£Åo,¦¬Âð_¨Ó¤§«á¤]³\·|¥Î¨ì

TOP

¦^´_ 3# starry1314
¥i¥H´£¨Ñ½d¨ÒÀɤ@¦P¬ã¨s¡H
ÁÂÁ¡I

TOP

¦^´_ 4# p212
¥Hªþ¤W½d¨ÒÀÉ~¤j®a¤@°_¬Ý¬Ý¦³¨S¦³§ó¦nªº¤èªkÅo
¸§¯À´À´«-VLOOKUP+right½d¨Ò.rar (10.73 KB)

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD