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

[µo°Ý] À°¦£¸ÑÄÀ³o­Ó¼Ò½k¤ñ¹ï½d¨ÒÀÉ

§ÚªºÅÞ¿è¿ù¤F¡A§Ú¥H¬°µ{¦¡·|¥h¤À¿ë³Ì±µªñ"¬ãµo"ªº¦r¦ê¡A"¬ãµoccab"--> aÂ÷¬ãµo³Ìªñ ^^¡A§Ú¹ê¦b¬O¤Ó...

¥u®t³Ì«á¤@¨B¤F¡A¤£¹L²{¦b¾ã­Ó¸£³U¤w¸g¶Ã±¼¤F¡AÁÂÁ Hsieh ¤jµ¹§ÚªºÆ[©À!
ÁÙ¦³ oobird ¤j¤j¼gªº§Ú¤ñ¸û¯à°÷¬Ý±oÀ´¡A­è­è¥Î¥¦¸ÕµÛ¥h§ï§Úªº¤u§@ÀɮסA¥i¬O¤@ª½¥X²{¿ù»~¡A·d±o§ÚÀY©ü¸£º¦ªº¡A¥i¤£¥i¥H§Ú§â¤u§@Àɮ׶ǨӡA±z«üÂI§Ú¤@¤U¸Ó¦p¦ó§ï?
Jess

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-5-10 08:53 ½s¿è

¼Ó¥D~ ´N±zªþÀɪº °T®§¨Ó¬Ýªº¸Ü
¬O ¥H sheet1 ¬°°ò¦ ¦bsheet2 ªº¸ê®Æ¤º ¤U¥h°µ·j´M¨S¿ù§a
¬JµM¬O³o¼Ë ¨º ¦pªG§A sheet2¤º ¨S¦³¬ÛÃöªº¸ê°T ´Nºâ§A¦bsheet1 ¼W¥[¦A¦h±ø¥ó ¤]¬O¨S¥Îªº.

¦Ó¥B ¦pªG«ö·Ó¼Ó¥Dªº·N«äªº¸Ü
·|³y¦¨¤@ºØ±¡§Î
¦pªG³æ¤@¸ê®Æ ²Å¦X¨âºØ·j´M±ø¥ó ¨º ­nÅã¥Ü­þ­Ó?? ´N¸ò¤§«e¬Y©«¤@¼Ë...
¨Ò¦p
      sheet1                  sheet2            Åã¥Ü
A1      ¤j©ú      1            ¤j©ú¤p©ú           ?
A2     ¤¤©ú      2             ¤¤©ú                   2
A3      ¤p©ú      3            ¤p©ú                   3
¨º A1   ªº¸Ü ¥LÅã¥Ü­n­þ­Ó?

TOP

«ÜÃøÀ´§AªºÅÞ¿è
"¬ãµoccab"--> aÂ÷¬ãµo³Ìªñ ^^
¤£¬Oc Â÷¬ãµo³Ìªñ ?????
³\¦hªB¤Í¤£Ä@§â°ÝÃDÀÉ®×´£¥X¨Ó
¤SµLªk´y­z²M·¡
³y¦¨«Ü¦hªºÂû¦PÀnÁ¿
®ö¶O¤j®aªº®É¶¡»P¯¸ªøªºªÅ¶¡

TOP

¦^ mark15jill ¤j
½T¹ê·|¦³³oºØ±¡§Î¡A¤£¹L§Ú·|ºCºC­×¥¿¸ê®Æ®wªº¸ê®Æ¡A³o­Ó°ÝÃD¬O¥i¥H¤@¨B¨B¸Ñ¨Mªº¡AÁÂÁ§A!

§Ú­«·s¤W¶Ç¤F¤@­ÓÀɮסA¦³·s¼W´XÄæ¸ê®Æ¡A­n¦P®É¶Ç¦^Sheet2¡A½Ð oobird ¤jÀ°§Ú¬Ý¤@¤U¡A­n¦p¦ó­×§ï¦n¶Ü?

¼Ò½k¤ñ¹ïtest.rar (16.19 KB)
Jess

TOP

¦^´_ 14# jesscc
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet1
  4. For Each a In .Range(.[B5], .[B56636].End(xlUp))
  5.    d(a & "") = Array(a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
  6. Next
  7. End With
  8. With Sheet2
  9. For Each a In .Range(.[D12], .[D56636].End(xlUp))
  10.     For Each ky In d.keys
  11.        If InStr(a, ky) > 0 Then a.Offset(, 4).Resize(, 4) = d(ky): Exit For
  12.     Next
  13. Next
  14. End With
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ Hsieh ¤j!­è­è¸ÕµÛ¥h run ¦Û¤vªº¤u§@ÀɮסA¥u¶Ç¦^4Ä檺¸ê®Æ¬Ookªº¡A¦pªG§Ú±q Sheet1 §ì¦^ªº¸ê®Æ§ï¦¨32Äæ(¤½¥qªº¸ê®Æ«ÜÃe¤j)¡A¥Î¤@­Ó°j°é¥h¶]°}¦C¡Aµ²ªG´N¨S¿ìªk¥¿±`°õ¦æ¤F¡A¬O°}¦Cªº¦]¯À¶Ü?§Ú°O±o¦n¹³¦b­þ¸Ì¬Ý¹L¤å³¹»¡©ú¡A°}¦Cªº"Äæ"¬O¤£¯à¥Î°j°é¥h¶]ªº¡C¬O³o¼Ë¶Ü?
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet1
  4. For Each a In .Range(.[B5], .[B56636].End(xlUp))
  5.   For i = 1 To 32
  6.    d(a & "") = Array(a.Offset(, i).Value)     ', a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
  7. Next i
  8. Next
  9. End With
  10. With Sheet2
  11. For Each a In .Range(.[D12], .[D56636].End(xlUp))
  12.     For Each ky In d.keys
  13.        If InStr(a, ky) > 0 Then a.Offset(, 12).Resize(, 32) = d(ky): Exit For
  14.     Next
  15. Next
  16. End With
  17. End Sub
½Æ»s¥N½X
Jess

TOP

³o¬q´N¬O§Aªº¸ê®Æ½d³ò¹ï¶Ü?
For i = 1 To 32
  d(a & "") = Array(a.Offset(, i).Value)     ', a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
Next i
³o¼Ë³æµ§¸ê®ÆÁÙ¬O¥u¦³4Äæ
§ï¦¨
Dim Ar(32)
For i = 0 To 31
  Ar(i) = a.Offset(, i).Value
Next i
d(a & "") =Ar
³o¼Ë´N¦³32Äæ¸ê®Æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Ok¤F!
¥i¬O­è­è¥J²ÓÀˬd¤F¤@¤U¡Aµo²{¤ñ¹ï«á¶Ç¦^¨Óªº¸ê®Æ¡A¦³«Ü¦hµ§³£¤£¬O¥¿½Tªº¡A¯u¬O§Ö³Q³o­Ó¼Ò½k¤ñ¹ï·dºÆ¤F¡C
Jess

TOP

¦^´_ 18# jesscc

¸ê®Æ¤£¥¿½T¦³¥i¯à¬OSHEET2ªº¦r¦ê¤¤§t¦³2²Õ¥H¤WªºÃöÁä¦r
µ{¦¡·|»{©w²Ä¤@­Ó¤ñ¹ï¨ìªºÃöÁä¦r°µ§PÂ_
©Î³\§A­n¦bÃöÁä¦r¤¤ÂkÃþ¤U¥\¤Ò
¤W¶Ç§AªºÃöÁä¦r²M³æ¤Î¿ù»~ªº¸ê®Æ¬Ý¬Ý¤~¯à½T©w¥X¿ùªº­ì¦]
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦]¬°¸ê®Æ®w¤ÓÃe¤j¡A§Ú¾ã²z¤@¨Ç¸û¨ã¥Nªí©Êªº¡A©ú¤Ñ¶Ç¤W¨Ó¡AÅý±z¬Ý¬Ý¡C¯uªº¦n·PÁ§A¡AÀ°§Ú¸Ñ¨M¤F¦n¦h°ÝÃD!
Jess

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD