[µo°Ý] ·Q½Ð±ÐVBA°ª¤â¨âSHEETS¤ñ¸û«á§ä¥X¯S©w¤§Àx¦s®æ¦A¶K¤J¯S©w¦ì¸m¤¤

YUPOYU

SHEET1¦p¤U
         A          B                  C                   D                 E                  F                    G                 H                  I                     J                    K
  1     a1        1        1        3        4        101        102        7        8        9        10
  2    a2        11        12        13        14        15        16        17        18        19        20
  3      a3        21        22        23        24        5        26        27        28        29        30
  4      a4        31        32        33        34        35        36        37        38        39        40
  5     a5        41        42        4        44        45        46        47        48        49        50
  6     a6        51        52        53        54        55        56        57        58        59        60
  7     a7        61        62        63        64        6        66        67        68        69        70
  8     a8        71        72        73        74        75        76        77        78        79        80
  9     a9        81        82        83        84        85        86        87        88        89        90
10   a10        1        92        93        94        95        96        97        98        99        100
SHEET2¦p¤U
           A            B               C                   D                  E                   F                   G                   H                 I                     J
1        1             2        3        4        5        6        7        8        9        10

1.½Ð°Ý¤@¤UVBA¤§°ª¤â­Ì¥i§_±Ð±Ð¤p¤k¤l¦p¦ó¥ÎVBAµ{¦¡,¥HSHEEET2¤§A1   B1   C1   D1   E1   F1   G1   H1   I1   J1 Àx¦s®æªº¦U§O­È¬°­Ó§O¨Ì¾Ú¥h¦U§O
¤ñ¹ïSHEEET1¤§B1:K10Àx¦s®æªº¨C¤@­Ó­È(¹ê»Ú½d³ò±¡ªp¬°B2:V4000,­Y¥Î¤H¤u©Î¨ç¼Æ¤ñ¹ï¥i¯à¤£¬O¤ñ¹ï¦º´N¬OÀɮ׫ܤj¶]¤£¤Ó°Ê,±Ï©Rªü!),
­Y¦³¬Û¦P­È,¤~¶Ç¦^¬Û¹ïÀ³¤§SHEEET1 AÄ椧­È(­Y¨S¦³«h²¤¹L,Ä~Äò¤ñ¹ï¤U¤@­ÓÀx¦s®æ)
¦Ü SHEET2¤§A2  A3 A4.........¨Ì§Ç±Æ¤U¥h,SHEET2·Q­nªºµ²ªG¦p¤U:
           A            B               C                   D                  E                   F                   G                   H                 I                     J
1        1             2        3        4        5        6        7        8        9        10
2        a1
3       a10
4       a1
5      a1
6       a1
7      a5
8     a1
9.    a3
10  a7
11 a1
¨Ì¿z¿ïµ²ªGÄ~Äò©¹¤U±Æ¦C......

2.¥B¤]·Q°ÝSHEET2¤§A2  A3   A4.........¤ºªº­È¤£ª¾¥i§_¦A¦Û°Ê¥Ñ¤p¨ì¤j±Æ§Ç

½ÐVBA¤§°ª¤â­ÌÀ°À°¦£,±Ï±Ï¤p¤k¤l§Ú§r!
·P¿E¤£ºÉ³á!
                                         yupopo ¯d

Book1.rar (7.92 KB)

¤W­z¤§¹ê»Ú¼Ë¤l
¤U¸ü¦¸¼Æ: 12

2012-4-1 09:06

¤W­±¬°ªþ¥óÀÉ®×,½Ð¦U¦ìvba°ª¤â¤j¤j­ÌÀ°¦£¬Ý¤@¤U
(¯u¤£¦n·N«ä,¨S§âª©­±±Æ¦n,³y¦¨¤j¤j­Ìªº§xÂZ!½Ð¨£½Ì)
                                 
                                              yupopo ¯d

Hsieh

¦^´_ 1# YUPOYU
¤£¬O«ÜÀ´§Aªº·N«ä¡A¥ý¸Õ¸Õ¬Ý

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet1
   
4. For j = 2 To .[IV1].End(xlToLeft).Column
   
5.     For i = 1 To .[A65536].End(xlUp).Row
   
6.       If d(.Cells(i, j).Value) = "" Then
   
7.       d(.Cells(i, j).Value) = .Cells(i, 1)
   
8.       Else
   
9.       d(.Cells(i, j).Value) = d(.Cells(i, j).Value) & "," & .Cells(i, 1)
   
10.       End If
    
11.     Next
    
12. Next
    
13. End With
    
14. With Sheet2
    
15.   For Each a In .Range(.[A1], .[IV1].End(xlToLeft))
    
16.   If d(a.Value) <> "" Then
    
17.     ar = Split(d(a.Value), ",")
    
18.     With a.Offset(1).Resize(UBound(ar) + 1, 1)
    
19.     .Value = Application.Transpose(ar)
    
20.     .Sort key1:=.Cells(1), Header:=xlYes
    
21.     End With
    
22.   End If
    
23.   Next
    
24. End With
    
25. End Sub

½Æ»s¥N½X

YUPOYU

¦^´_ 2# Hsieh


    ·PÁª©¥D¼ö¤ß¬°§Ú¸Ñµª,§Ú¦³§â¥N½X¸Õ¸Õ¬Ý,µ²ªG¬O¹ïªº,¦ý±Æ¦C¤è¦¡¦n¹³¨S¦³²Å¦X§Ú·Q­nªºª©­±,
§Ú·Q¬O§Ú³¯­zªº¤£°÷²M·¡©úÁA,¯uªº«Ü©êºp,
§Ú·Qªí¹Fªº¦Û°Ê®Ö¹ï¹Lµ{,±o¨ìµ²ªG¤ÎÅã¥Üµ²ªGªº¤è¦¡
§Ú¦A¥J²Ó·Q·QÀ³¸Ó¦p¤U©Ò­z
1.¦Û°Ê®Ö¹ï¹Lµ{,±o¨ìµ²ªG
¦Û°Ê¥ý¿ï¨úSHEET2ªºA1,±oª¾¨ä­È¬°1
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°1,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,±o¨ì­È a1¤Î a10
¤ñ¹ï C1:C10«á,±o¨ì­È a1
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºB1,±oª¾¨ä­È¬°2
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°2,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºC1,±oª¾¨ä­È¬°3
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°3,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,±o¨ì­È a1
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºD1,±oª¾¨ä­È¬°4
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°4,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,±o¨ì­È a1
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºE1,±oª¾¨ä­È¬°5
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°5,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,±o¨ì­È a3
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºF1,±oª¾¨ä­È¬°6
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°6,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,±o¨ì­È a7
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºG1,±oª¾¨ä­È¬°7
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°7,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,±o¨ì­È a1
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºH1,±oª¾¨ä­È¬°8
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°8,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,±o¨ì­È a1
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºI1,±oª¾¨ä­È¬°9
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°9,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,±o¨ì­È a1
¤ñ¹ï K1:K10«á,µL­ÈÅã²{

±µµÛ¦A¦Û°Ê¥ý¿ï¨úSHEET2ªºJ1,±oª¾¨ä­È¬°10
µM«á¥h¨Ì§Ç¦Û°Ê¤ñ¹ïSHEET1 ¤§B1:B10, C1:C10, D1:D10, E1:E10, F1:F10, G1:G10, H1:H10, I1:I10, J1:J10, K1:K10
­Y²Å¦X­È¬°10,«h§ì¥X¬Û¹ïÀ³AÄæ¦C¦ì¤§­È
µ²ªGÀ³¦p¤U
¤ñ¹ï B1:B10«á,µL­ÈÅã²{
¤ñ¹ï C1:C10«á,µL­ÈÅã²{
¤ñ¹ï D1:D10«á,µL­ÈÅã²{
¤ñ¹ï E1:E10«á,µL­ÈÅã²{
¤ñ¹ï F1:F10«á,µL­ÈÅã²{
¤ñ¹ï G1:G10«á,µL­ÈÅã²{
¤ñ¹ï H1:H10«á,µL­ÈÅã²{
¤ñ¹ï I1:I10«á,µL­ÈÅã²{
¤ñ¹ï J1:J10«á,µL­ÈÅã²{
¤ñ¹ï K1:K10«á,±o¨ì­È a1

2.Åã¥Üµ²ªGªº¤è¦¡
¨Ì¤W­z¨Ì§Ç±o¨ìªº12­Óµ²ªG­È¦A¨Ì§Ç¦s¤JSHEET2 A2 A3 A4........¤§Àx¦s®æ¤¤(¦]¬°A1¦C¤¤¤w¦³¼Æ­È,©Ò¥HA2¬°±Ò©lÂI)
µ²ªG¦p¤U
SHEET2
A2Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A3Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a10
A4Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A5Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A6Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A7Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a3
A8Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a7
A9Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A10Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A11Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1
A12Àx¦s®æ­ÈÀ³¦Û°Ê¦s¬°a1

¥H¤W¤¾ªøªº³¯­z§Æ±æ¯àÅývba°ª¤âª©¥D©Î¦³¤ß¬°¤p¤k¤l¸Ñµª¤§vba°ª¤â­Ì¤F¸Ñ
·P¿E¤£ºÉ
ps.­ì©lª©­±½s±Æ¬°¤w¤W¶Ç¤§¤W­±ªþ¥óbook1
                               yupopo¯d

GBKEE

¦^´_ 3# YUPOYU
½Ð¶Ç¤W¤ñ¹ï«áÀɮ׬ݬÝ

Hsieh

¦^´_ 3# YUPOYU

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet1
   
4. For j = 2 To .[IV1].End(xlToLeft).Column
   
5.     For i = 1 To .[A65536].End(xlUp).Row
   
6.       If d(.Cells(i, j).Value) = "" Then
   
7.       d(.Cells(i, j).Value) = .Cells(i, 1)
   
8.       Else
   
9.       d(.Cells(i, j).Value) = d(.Cells(i, j).Value) & "," & .Cells(i, 1)
   
10.       End If
    
11.     Next
    
12. Next
    
13. ay = Split(Join(d.items, ","), ",")
    
14. End With
    
15. With Sheet2
    
16.   For Each a In .Range(.[A1], .[IV1].End(xlToLeft))
    
17.   If d(a.Value) <> "" Then
    
18.      If mystr = "" Then
    
19.       mystr = d(a.Value)
    
20.       Else
    
21.       mystr = mystr & "," & d(a.Value)
    
22.       End If
    
23.   End If
    
24.   Next
    
25.     ar = Split(mystr, ",")
    
26.     .[A2].Resize(UBound(ar) + 1, 1) = Application.Transpose(ar)
    
27. End With
    
28. End Sub

½Æ»s¥N½X

register313

¦^´_ 3# YUPOYU

1. Sub aa()
   
2.   Sheets("Sheet2").[A2:A65536] = ""
   
3.   For R = 1 To Sheets("Sheet1").[A1].End(xlDown).Row
   
4.     For C = 1 To Sheets("Sheet2").[A1].End(xlToRight).Column
   
5.       If Sheets("Sheet2").Cells(1, C) = Sheets("Sheet1").Cells(R, C + 1) Then
   
6.          Sheets("Sheet2").[A65536].End(xlUp).Offset(1, 0) = Sheets("Sheet1").Cells(R, 1)
   
7.       End If
   
8.     Next C
   
9.   Next R
   
10. End Sub

½Æ»s¥N½X

YUPOYU

¦^´_ 5# Hsieh


    ­º¥ý·PÁÂHSIEHª©¥D¬°¤p¤k¤l¸Ñ¥X¥¿½Tªº¸Ñµª,¯uªº·P¿E¤£ºÉ
   §ÚÁöµM¬Ý¤£¤ÓÀ´¨ä¤¤ªº²`¶øµ{¦¡½X·N«ä(§Ú¥uÀ´Â²³æªº¦^°éµ{¦¡),
    ¦ý§Ú·|§V¤O§ä®Ñ¬ã¨s¬Ý¬Ý,§Úªº8¸U¦hµ§ªº¤ñ¹ï¸ê®Æ²×©óÅS¥X¤@½u
     ¸p¥ú,¦³±Ï¤F,·Pı¤£¬O©t¨àªº·Pı¯u¬O¤Ó´Î¤F!§Ú¤@©w­nÃÙ§U³o¦ò
    ¤ß¨Óªººô¯¸
        ¥t¥~¤]·PÁÂGBKEE¤ÎREGISTER313¨â¦ìªº¼·ªÅÃö¤ß
  ps. ¦p¤p¤k¤l©¡®É8¸U¦hµ§ªº¤ñ¹ï¸ê®Æ,ÁÙ¬OµLªk´ú¸Õ¦¨¥\ÁÙ±æ
            ¦U¦ìVBA¤j«L¥X¤â¦A¬Û±ÏÅo!:P
                  ÁÂÁ¤j®a
                                                   yupopo¯d

YUPOYU

¦^´_ 5# Hsieh


    DEAR HSIEHª©¥D:
©Ó»X§Aªº¸Ñµª,¤p¤k¤lÁöµM«Ü·Q¾a¦Û¤vªº¤O¶q,§ËÀ´ª©¥D¼gªº
µ{¦¡,¦AÀ³¥Î¦b¦Û¤v©Ò»Ýªº½d¨Ò¤¤,¦ý¹ê¦b¬O©M HSIEHªO¥Dªº¹ê¤OÄa®í®t¤Ó¦h
ÁöµM§Ú¦³·Q¿ìªk®M¥Î,¦ý¤p¤k¤lÀ³¹ê»Ú¤ñ¹ïªº8¸U¦hµ§ªº¸ê®Æ,ÁÙ¬OµLªk´ú¸Õ¦¨¥\,
§Æ±æ¦n¤ßªºHSIEHªO¥D¦A¬°§Ö§ì¯}ÀYªº¤p¤k¤l¬Ý¤@¤U¹ê»Úªº°ÝÃD¦A­þ¸Ì¶Ü?
¤£¦n·N«ä,¤£¾å±o¬O§_¤]¥i½ÐHSIEHªO¥D¦b¨C¤@¦æµ{¦¡«á­±µy·Lµù¸Ñ¤@¤U
Åý¤p¤k¤l§Ú¦³¾÷·|¨Ó¾Ç²ß°ª¤âªº³]­p«ä¦Ò¼Ò¦¡
¦pÄ@¦ù¤â´©§U,¤p¤k¤l·P¿E¤£ºÉ

Book4.rar (294.69 KB)

¤U¸ü¦¸¼Æ: 9

2012-4-3 21:16

PS.ªþ¥ó¬°¹ê»Úªº©Ò¹J¨ìªºcase(book4.xls),
book4.xls!¤u¨ã¤é´Á¸ê®Æ®w   ´N¦n¹³¤§«eªº   book1.xls!sheet1
book4.xls!ÀÉ´Á·j´M   ´N¦n¹³¤§«eªº   book1.xls!sheet2
book4.xls!¤u¨ã¤é´Á¸ê®Æ®w G5:G4000¶À¦âÀx¦s®æ  ´N¦n¹³¤§«eªº   book1.xls!sheet1 A1:A11
book4.xls!¤u¨ã¤é´Á¸ê®Æ®w B5:AE4000²H¾ï¦âÀx¦s®æ°Ï°ì  ´N¦n¹³¤§«eªº   book1.xls!sheet1 B1:K11
book4.xls!ÀÉ´Á·j´MA2:U2 ´N¦n¹³¤§«eªº   book1.xls!sheet2 A1:J1  ¥u¬OÀx¦s®æªº­È¬°¤é´Á
·Q­nÅã¥Üªºµ²ªG´N¹³¤§«e¤ñ¹ï«áªº±Æ¦C¤è¦¡
¥Ñbook4.xls!ÀÉ´Á·j´MªºA3.A4.A5........¨Ì§Ç±Æ¦C ´N¦n¹³¤§«eªº   book1.xls!sheet2 A2.A3.A4........¨Ì§Ç±Æ¦C
µ{¦¡®M¥Î¦b book4.xls VBSªºThis Workbook ¤¤,¦ý¤@°õ¦æ´N¥X²{¿ù»~°T®§
¯u¶Ë¸£µ¬,HELP HELP.........!

Hsieh

¦^´_ 8# YUPOYU
¤£¬O¼Ò²Õ¦ì¸mªºÃö«Y¡A¬O§AªºÄæ¦ì°_©l¦ì¸m¤£¦P

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet1
   
4. For j = 8 To .[IV5].End(xlToLeft).Column
   
5.     For i = 5 To .[G65536].End(xlUp).Row
   
6.       If d(.Cells(i, j).Value) = "" Then
   
7.       d(.Cells(i, j).Value) = .Cells(i, 7)
   
8.       Else
   
9.       d(.Cells(i, j).Value) = d(.Cells(i, j).Value) & "," & .Cells(i, 7)
   
10.       End If
    
11.     Next
    
12. Next
    
13. ay = Split(Join(d.items, ","), ",")
    
14. End With
    
15. With Sheet2
    
16.   For Each a In .Range(.[A2], .[IV2].End(xlToLeft))
    
17.   If d(a.Value) <> "" Then
    
18.      If mystr = "" Then
    
19.       mystr = d(a.Value)
    
20.       Else
    
21.       mystr = mystr & "," & d(a.Value)
    
22.       End If
    
23.   End If
    
24.   Next
    
25.     ar = Split(mystr, ",")
    
26.     .[A3].Resize(UBound(ar) + 1, 1) = Application.Transpose(ar)
    
27. End With
    
28. End Sub

½Æ»s¥N½X

YUPOYU

¦^´_ 9# Hsieh

·PÁ¶Wª©
§Úªº°ÝÃD¤w¸g¸Ñ¨M
«D±`ÁÂÁ¶Wª©ªº­@¤ßÀ°¦£
¤p¤k¤l·P¿E¤£ºÉ:loveliness:

    YUPOPO¯d