Hsieh

¥ý±q§Aªº»Ý¨D¶}©l¡A§A¬O­n¦bsheet2¤¤´M§ä¦³sheet1ªºAÄæ¦r¦ê
¤]´N¬O»¡Sheet2¤¤¦³¥]§tSheet1ªº¦r¦ê¡AµM«á±N¥N¸¹¡BÃþ§O¶ñ¨ìSheet2
¨º¸Õ°Ý¡A"¬ãµoA"¡B"¬ãµoB"¦bSheet2¤¤ªº¸ê®Æ§A¦p¦ó¯à§ä¨ì?
A8¤º®e"(100¦~3¤ë2¤é)¬ãµo1"
¥L¨Ã¥¼¥X²{"¬ãµoA"©Î"¬ãµoB"
©Ò¿×¼Ò½k¤ñ¹ï¬O»¡¦r¦ê¤¤¥]§tÃöÁä¦r¡AÁÙ¥i¯à¥X²{¨ä¥L¦r¤¸
´N¦]¬°§AªºÃöÁä¦r²{¦b¬O"¬ãµoA"©Î"¬ãµoB"
¨º»ò­n¦b´M§ä¦r¦ê¤¤¦³¥X²{"¬ãµoA"©Î"¬ãµoB"
¤~·|³Q»{¬°¤ñ¹ï¦¨¥\

Hsieh

"¬ãµoccba"«ç·|¬O¦³³sÄò¦r¦ê¬°"¬ãµob"©O?
³o¼Ë»¡§a
§A¬O­n¦b"¬ãµoccba"¤¤§ä¬Ý¬Ý¬O§_¦³"¬ãµoa"©Î"¬ãµob"
¨º§A§â"¬ãµoccba"¡A¨C3­Ó¦r¤Á³Î·|±o¨ì
"¬ãµoc"¡B"µocc"¡B"ccb"¡B"cba"
³o¸Ì­±·|¦³"¬ãµoa"©Î"¬ãµob"¶Ü?

Hsieh

¦^´_ 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

Hsieh

³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Äæ¸ê®Æ

Hsieh

¦^´_ 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¿ùªº­ì¦]

Hsieh

space­Ó¼Æ¤£¦P¡A¤j¤p¼g¤£¦P¡A¦³-¸ò¨S-
599-252  Washer»P599-252 Washer®t¤F¤@­Óspace
110334-1-ZA»P110334-1-Z-A®t¤F¤@­Ó-
40366109240 pIN­Y¤£¤À¤j¤p¼g«ç»ò§P©w¬O40366109240 PINÁÙ¬O40366109240  Pin
µ{¦¡ªºÅÞ¿è´N¥u¬O§âÃöÁä¦r¬O§_¦s¦b©ó·j´M¦r¦ê¤º
­Y·j´M¦r¦ê¤£¥]§t§¹¾ãÃöÁä¦r¡A·íµM¤ñ¹ï¤£¨ì