[µo°Ý] ¦h­«¤£­«Âиê®Æ§ì¨ú¤è¦¡½Ð°Ý

rouber590324

Dear  ALL ¤j¤j
1.SHEET1 ¸ê®Æ¦p¤U
      AÄæ    B       C        D       E   
1¦C  ¦WºÙ   ª©§O  ³æ¦ì    µù1    µù2
2       ³Â     A     KG      11      22
3       ³Â     B       KG      33      44
4       ¶Â     A       MM     55      66
5       ³Â     B       KG       77      88
.........
1.1 »Ý¨D¬°  A.B.C Ä椧 ¤º®e¬Û¦PªÌºâ­«ÂÐ.¥u¨úÀu¥ý¦C¤§¸ê®Æ¤@µ§
    ¥H¤W¸ê®Æ¬°¨Ò  ³ÂBKG ­«ÂР ¥u¨ú²Ä¤@µ§ ³ÂBKG ¾ã¦C¸ê®Æ¦ÜSHEET2 ¦p¤U
      AÄæ    B       C        D       E   
1¦C  ¦WºÙ   ª©§O  ³æ¦ì    µù1    µù2
2       ³Â     A     KG      11      22
3       ³Â     B       KG      33      44
4       ¶Â     A       MM     55      66

·Ð¤£§[½ç±Ð   THANKS*10000

phoebegin

¤Ó¦n¤F....

·PÁ¨â¦ì°ª¤â¤j¤j........

hcm19522

https://blog.xuite.net/hcm19522/twblog/590346438

samwang

¦^´_ 5# phoebegin

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [A1].End(xlDown))
If Not d.Exists(a & a.Offset(, 1) & a.Offset(, 2)) Then
d(a & a.Offset(, 1) & a.Offset(, 2)) = a.Resize(, 5).Value
End If
Next
[I1].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
End Sub

phoebegin

§Ú·Q½Ð±Ð¦U¤j¤j...¦pªG§Ú·Q­nªº¤£¬O¹³ª©¤j¨ú²Ä¤@µ§¡A¦Ó¬O­n³Ì«á¤@µ§....«eªÌ­«ÂЪº­n§R°£¡A¨º»ò¸Ó¦p¦ó§ï©O?

rouber590324

dear  kim223824  »P Hsieh ¤j¤j
·PÁ«ü¾É. ok°Õ  thanks*10000

Hsieh

¦^´_ 1# rouber590324

¤U¸ü (153.93 KB)

2017-11-29 15:27

­Y¬Oª©¥»¸û§C¨S¦³²¾°£­«½Æ¥\¯à¡A¸Õ¸Õ

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([A1], [A1].End(xlDown))
   
4. d(a & a.Offset(, 1) & a.Offset(, 2)) = a.Resize(, 5).Value
   
5. Next
   
6. [I1].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
   
7. 
   
8. End Sub

½Æ»s¥N½X

kim223824

¬O­n³o¼Ë¶Ü?
test2.zip (20.46 KB)

¤U¸ü¦¸¼Æ: 17

2017-11-29 14:38