¦p¦ó¾ã²z[Àx¦s®æ]ªº¸ê®Æ

valenty823

dear all :

¤p§Ì·Q½Ð±Ð¦U¦ì¥ý¶i¤@­Ó°ÝÃD¡A¦p¤Uªí

¤U¸ü (31.48 KB)

2010-7-31 11:51

¤£ª¾¹D excel ­n¦p¦ó¤~¯à°µ¨ì¡H

kimbal

¦^´_ 1# valenty823


    ±Æ¯Z¤@/¤G¦p¦ó¤À?
¤@ = ¦­+¤È
¤G = ±ß
?

valenty823

¦^´_ 2# kimbal

·PÁ±zªº¦^ÂСA
±Æ¯Z¤@©M±Æ¯Z¤G¨ä¹ê¨Ã¨S¦³³W«h¡A
¦Ó¬O¨Ì¸ê®Æ¤º®e¦Ó©w¡A
¤ñ¦p¡u¥Ò¡v±Æ¤F¨â­Ó¯Z¡A©Ò¥H·|¦³¨âµ§¸ê®Æ¨Ã¦CÅã¥Ü¡A
¡u¤þ¡v¥u±Æ¤F¤@­Ó¯Z¡A©Ò¥H¸ê®Æ¥u¦³¤@µ§¡A
³Â·Ð±zµ¹¤p§Ì¤@¨Ç«Øij¡AÁÂÁ¡C

Hsieh

¦^´_ 3# valenty823


   °ò¥»¤W¨S³W«hªº¤u§@µ{¦¡¬O¤£¯à±µ¨üªº
­nª¾¹D±Æ¯Z³W«h¤~¯à¨Ì·Ó³W«h¼g¥Xµ{¦¡

valenty823

¦^´_ 4# Hsieh

¹ï¤£°_! ¥i¯à¬O¤p§Ìªí¹F¤£¨Î¡C
¤u§@ªí¤¤ B4¡GD5 ¬O§Ú­Ì¶ñ¤J±Æ¯Z¤Hªº¦W¦r¡A
F2¡GL5 «h¬O¨Ì±Æ¯Z¤Hªº¦W¦r©Ò¾ã²z¥X¨Óªº¤@Äýªí¡C

³o¼Ë¤l¤£ª¾¹D¯à¤£¯à°µ¥X¨Ó¡H

Hsieh

¦^´_ 5# valenty823

1. Sub yy()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([B4], [D65536].End(xlUp))
   
4.   If d(a.Value) = "" Then
   
5.   d(a.Value) = _
   
6.   Join(Array(a, Cells(a.Row, 1).Value, Cells(2, a.Column).Value, Cells(3, a.Column).Value), ",")
   
7.   Else
   
8.     d(a.Value) = _
   
9. d(a.Value) & "," & Join(Array(Cells(a.Row, 1).Value, Cells(2, a.Column).Value, Cells(3, a.Column).Value), ",")
   
10.   End If
    
11. Next
    
12. [F2:O65536] = ""
    
13. For Each ky In d.keys
    
14. ar = Split(d(ky), ",")
    
15. [F65536].End(xlUp).Offset(1, 0).Resize(, UBound(ar) + 1) = ar
    
16. Next
    
17. Range("A:A").Locked = False
    
18. End Sub

½Æ»s¥N½X

valenty823

«z¶ë !
¸U¤À·PÁ ! ¥ß¨è try try see !