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

³Â·Ð¦U¦ì¤j®v ¸ê®Æ´À´«°ÝÃD

³Â·Ð¦U¦ì¤j®v ¸ê®Æ´À´«°ÝÃD



¤p§Ì¸Õ¤F¦n¤[³£¸Õ¤£¤Ó¥X¨Ó
©Ò¥H¥u¯à³Â·Ð¦U¦ì¤j¤j¤F
¥D­n¬O¦]¬°­Ó¤H½s¸¹¤£¤Ó¬Û¦P
¦ý¬O¤£¦P½s¸¹¥i¯à¥Nªíªº¬O¦P¤@­ÓªF¦è
¥i¥H±N½s¸¹¹ï·Ó®t²§ªí¤§«á¶Ç¦^²Î¤@ªº´À¥N½s¸¹(¬õ¦â³¡¤À)
¨Ã¥B±N´À¥N«eªº½s¸¹¶K¨ì­ì©l½s¸¹¤W(ÂŦⳡ¥÷)
Àɮצp¤U
0606.rar (4.73 KB)

¦^´_ 1# toxin
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet3
  4. ar = .UsedRange.Offset(1, 1).Value
  5. ay = .UsedRange.Offset(1).Columns(1).Cells.Value
  6. For i = 1 To UBound(ar, 1)
  7.    For j = 1 To UBound(ar, 2)
  8.    If ar(i, j) <> "" Then d(ar(i, j)) = ay(i, 1)
  9.    Next
  10. Next
  11. End With
  12. With Sheet1
  13. For Each a In .Range(.[A2], .[A65536].End(xlUp))
  14. a.Offset(, 4) = d(a.Value)
  15. Next
  16. End With
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
·PÁÂHsiehª©¥D¦Ñ®v
¤£¦n·N«ä¤p§Ì¥\¤OÁÙ¤£°÷
¥i¥H³Â·Ð©â­ÓªÅ¼g¤@¤Uµù¸Ñ¶Ü?
¤£·Q¥u¬O®M¥Î·Q¦h¾Ç¤@ÂIªF¦è
·PÁÂ

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD