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

¥X³f³æ¦X¨Ö¦C¦L¿é¥X°ÝÃD¡A¦³µLª½±µ¾Þ§@¤èªk¡A©Î»Ý±Ä¥ÎVBA¸Ñ¨M¡C

¥X³f³æ¦X¨Ö¦C¦L¿é¥X°ÝÃD¡A¦³µLª½±µ¾Þ§@¤èªk¡A©Î»Ý±Ä¥ÎVBA¸Ñ¨M¡C

²{¦³¥X³f³æ(¤@³æ¸¹¦³¦h¶µ²£«~­n¿é¥X)¡A¸ÔSheet¡u¿é¥X¤º®e¡v
¦]¬°¥X³f·í®É¡A§Y»Ý­n§Y®É¦L¥X¨Ó°eµ¹«È¤á¡C

Sheet ¤º®e»¡©ú
¡u¥X³f³æ¤º®e¡v¡G­q³æ­n¥X³fªº¤º®e
¡u¥X³f³æ«È¤á¡v¡G­q³æ¬O¨º¦ì«È¤á­qÁʪº
¡u¿é¥X¤º®e¡v¡G­nµ¹Word¡B¦X¨Ö¦C¦L¿é¥X¥Îªº

°ÝÃD¦³3¡A¦p¤U¡A¤£¨D¯à°÷§¹¥þ¸Ñ¨M
1.¥i§_¾Þ§@ª½±µ®M¦L¥X³f³æ¸¹¡B«~¦W¡B¼Æ¶q¡B³æ»ù¡Bª÷ÃB¡A¦ý¦P¤@±i¥X³f³æ¡A¥u¦³¤@¦ì­qÁʫȤá¡A©Ò¥H¥u­n¥X²{¤@¦¸¡C
2.¦pªG¦P®É¦³3±i¥X³f³æ­n¦L¡A¥i§_¨Ì¥X³f³æ¸¹¤£¦P®É¡A§PÂ_»Ý­n´«­¶¦C¦L¡C
3.¥i§_¦³·í­¶¥X³f³æªº¦X­p¼Æ¥i¥H¦C¦L¤W¥h(³o­Ó¦pªG¤£¦æ¡AÁÙ¥i¥H¦Û¤w¥[¹L¤â¼g¤W¥h)

1.ªº³¡¤À¤ñ¸û»Ý­n°µ¡A¦]¬°¤â¼g¤£§Ö¡A®e©ö¿ù¡C
2.¦Ü¤£ÀÙ¡A¤À§å¦C¦L¤]ÁÙ¦n

¾ã­Ó°ÝÃD¦³ÂIÃø«×¡A¦pªG¤£¯à¥þ³¡¸Ñ¨M¡A½Ð°Ý¦³µL¸ÑÃDªº¤è¦V«ü¾É¡A¤]«Ü·PÁ¡C

¥X³f.zip (10.86 KB)

¦^´_ 1# Baracuda


µy·L¬Ý¤F¤@¤U...
§Úªº¯à¤O¤£¤Ó°ª¥u¯à´£¨Ñ¨Ç²³æ«Øij..
1ªº³¡¥÷ ¦pªG·Ó¼Ó¥D©Ò­zªº¸Ü °ò¥»¤W ¥i¥H¥Î¿z¿ï ±N¨ä°Ï¤À¥X¨Ó...
¦p
¥Ò«È¤á        10001001        A²£«~        4        5.18        21        
¥Ò«È¤á        10001001        B²£«~        3        45.75        137        
¥Ò«È¤á        10001001        D²£«~        6        14.93        90        
¥Ò«È¤á        10001001        E²£«~        2        28.34        57        
¥Ò«È¤á        10002002        A²£«~        3        5.18        16        

¤B«È¤á        10002001        H²£«~        7        12.96        91        
¤B«È¤á        10002001        J²£«~        9        90.58        815        
¤B«È¤á        10002001        C²£«~        6        21.05        126        

³o¼Ë¤U¥h°Ï¤À..

TOP

mark15jill ÁÂÁ¡A³o­Ó¤j·§¥u¯àÁÂÁ¤F¡C

TOP

¤@¯ë¦Ó¨¥¡A¦bª©­±±¾¤F³o¨Ç®É¶¡¡A¦pªG¨S¤H¦³¦^¡A§Ú±À©w´N¨S±Ï¤F¡C
§Ú·Q¥X¨Óªº¤èªk¬O
1.½Ð¤H¼g Customer-maid µ{¦¡¡C
2.¥ÎExcel ·í°µ word ¥Î¡A¥Ñ Excel °µ¡A±qSheet1°µ¨ì Sheet2¥h¡C
§Ú¨M©w±Ä¥Î2ªk¥ý°µ¤@¤U¡A¬Ýª¬ªp¦p¦ó¡C¦³²~ÀV¦A divide ¥X¨Ó¡A½Ðª©¤W¤j®a¨ÓÀ°¦£ Conquer.

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-5-3 17:17 ½s¿è

¦^´_ 3# Baracuda

    ³o­Ó°ÝÃD~¤j·§¥i¥HÀ°§A¸Ñ¨M~
    ¤£¹L¦³ÂI»Ý­n¼á²M¤@¨Ç°ÝÃD
   °ÝÃD¦³3¡A¦p¤U¡A¤£¨D¯à°÷§¹¥þ¸Ñ¨M
   1.¥i§_¾Þ§@ª½±µ®M¦L¥X³f³æ¸¹¡B«~¦W¡B¼Æ¶q¡B³æ»ù¡Bª÷ÃB¡A¦ý¦P¤@±i¥X³f³æ¡A¥u¦³¤@¦ì­qÁʫȤá¡A©Ò¥H¥u­n¥X²{¤@¦¸¡C
   2.¦pªG¦P®É¦³3±i¥X³f³æ­n¦L¡A¥i§_¨Ì¥X³f³æ¸¹¤£¦P®É¡A§PÂ_»Ý­n´«­¶¦C¦L¡C
     Q:¼Ó¥Dªº·N«ä¬O§_¥u­n¥X³f³æ¸¹¤£­n¼Ë´N¦C¦L¤@±i·sªº~ ¤£¥Î¤@±i¦C¦L«Ü¦h¥X³f³æ¸¹??
           
   3.¥i§_¦³·í­¶¥X³f³æªº¦X­p¼Æ¥i¥H¦C¦L¤W¥h(³o­Ó¦pªG¤£¦æ¡AÁÙ¥i¥H¦Û¤w¥[¹L¤â¼g¤W¥h)
       A:³o­Ó°ÝÃD¤ñ¸û²³æ­ò~ ¨Ã¤£§xÃø

   ¼Ó¥D~ ¦³¬Ý¹L±zWORDÀɪº¿é¥X½d¥»~ ¦pªG¬O³o¼Ë~ «Øij±z´Nª½±µ¦bEXCEL°µ¿é¥X¦C¦LªºªF§@~
    ¤Ï¦Ó·|§ó²³æ¤@ÂI
   ¦pªþ¥óªº¤è¦¡¬O§_¥i¥Hº¡¨¬±zªº»Ý¨D©O??  (­Y¥i¥H¤~¨Ó¼¶¼gµ{¦¡½X)
      ¥X³f³æ¦X¨Ö¦C¦L¿é¥X°ÝÃD_®æ¦¡.rar (8.68 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

mark15jill ÁÂÁ¡A³o­Ó¤j·§¥u¯àÁÂÁ¤F¡C
Baracuda µoªí©ó 2011-5-3 16:34



¤£¦n·N«ä ¯à¤O¤£¨¬  ¶È¯à´£¨Ñ²©ö«Øij...
§Ú¬O·Q¦pªG¤£¬O»¡  ¶W¯Å«æ¥ó(´N¬Oµu®É¶¡­n) ªº¸Ü ­Ë¬O¥i¥H¥Î¥H¤U¤èªk...

¥Îvba ±N¿z¿ï¥X¨Óªº¸ê®Æ ¥á¥h¤@­Ó©T©w®æ¦¡ªºexcelÀÉ®×(¹w¥ý´N­n«Ø¥ß¦n)
³o¼Ëªº¸Ü °²¨Ï©T©w®æ¦¡½T©w¥i¥H¦L¥X¼Ó¥D·Q­nªº¸ê®Æªº¸Ü
´N¤ñ¸û¦n¿ì... ¦pªG¤£¦æ ¨º ¥i¯àÁÙ±o½Ð ½×¾Âªº³ü¨Ç¯«¤H¥X°¨¤F+.+

ps ¹ï©ó¼Ó¥D´£¨ìªº  ¡§ ¦bª©­±±¾«Ü¦h¤Ñªº¸Ü ¨S¤H¦^À³´N¬O¨S±Ï¡¨
      Ãö©ó³oÂI¡A§Ú¥u¯à»¡ ¯àªº¸Ü °£¤F¦b³o´£°Ý¥~ ¥i¥H¥hgoogle §ä³ü¨Ç¬ÛÃöªº¤è¦¡  
      ¨Ã¤£¬O»¡³oÃä«ç¼Ë  ¦Ó¬O ¦³¨Ç®É­Ô ¦Û¤v§äªº ¤Ï¦Ó¤ñ¸ûª¾¹D«ç¥h³B²z...

TOP

¦^´_ 4# Baracuda
³o¼Ë¥Î¦X¨Ö¦C¦L¦n¹³¤£¬O«Ü¦X¾A
ª½±µ¥ÎEXCEL¿é¥X¥X³f³æ¤ñ¸û²³æ
  1. Sub ex()
  2. Dim Ar(), A As Range, C As Range
  3. With Sheet2
  4. For Each A In .Range(.[A2], .[A65536].End(xlUp))
  5.    With Sheet1
  6.    For Each C In .Range(.[A2], .[A65536].End(xlUp))
  7.       If C = A Then
  8.       ReDim Preserve Ar(s)
  9.       Ar(s) = Array(A.Offset(, 1).Value, A, C.Offset(, 1).Value, C.Offset(, 2).Value, C.Offset(, 3).Value, C.Offset(, 4).Value, C.Offset(, 5).Value)
  10.       s = s + 1
  11.       End If
  12.    Next
  13.    End With
  14.    With Sheet5
  15.    i = 0: .[F3] = A: .[B5:F9] = ""
  16.    Do Until i > UBound(Ar)
  17.       r = i Mod 5
  18.       .Cells(r + 5, 2).Resize(, 5) = Array(Ar(i)(2), Ar(i)(3), Ar(i)(4), Ar(i)(5), Ar(i)(6))
  19.       If r = 4 Or i = UBound(Ar) Then
  20.       .[F10] = r + 1 & "µ§¦@" & s & "µ§"
  21.          .PrintPreview
  22.          .[B5:F9] = ""
  23.       End If
  24.       i = i + 1
  25.    Loop
  26.    End With
  27.    With Sheet3 '¼g¤J¿é¥X¤º®e¤u§@ªí¡A­Y¤£±Ä¥Î¦X¨Ö¦C¦L¥i§R°£¦¹°Ï¬q
  28.    .[A65536].End(xlUp).Offset(1).Resize(s, 7) = Application.Transpose(Application.Transpose(Ar))
  29.    End With
  30.    s = 0: Erase Ar
  31. Next
  32. End With
  33. End Sub
½Æ»s¥N½X
¥X³f³æ.rar (15.68 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

hugh0620ÁÂÁ¡A®æ¦¡¬O¤p¨Æ¡A¤j·§³£¥i¥H°µ¥X¨Ó¡C

TOP

Hsiehª©¥D¡G
§Ú¦³¸Õ¹L§AªºªF¦è¡A¸ê®Æ¥i¥H°µ¥X¨Ó¡CÁöµM§ÚÁÙ¤£¬O«Ü§¹¥þ©ú¥Õ¤º®e¡C
§Ú¼gªºVBA¤@©w¬O¨S¦³§Aªººë²¡C
ÁÂÁ§Aªº¦^µª¡A§Ú¬Ù¥h¤£¤Ö®É¶¡µo®i§Úªº VBA¡C

TOP

Hsieh¶W¯Åª©¥D§A¯uªº«Ü¯«¡A§Ú§â¾ã­Ó¤º®e¬Ý§¹¤F¡C
§AªºVBA¡AÁÙ¦³¦Ò¼{¨ì¶W¹L5µ§¦C¦L¤W­­ªº°ÝÃD¡C
¨ä¥L¤@¨Ç½Ñ¦p­n²Ö­p¡B®æ¦¡¡K³£ºâ¤p°ÝÃD¡C

§Aªº¸ê®Æ¤¤¡A¦³­Ó¦a¤è§Ú­n½Ð±Ð§A
.Cells(r + 5, 2).Resize(, 5) =(Ar(i)(2), Ar(i)(3), Ar(i)(4), Ar(i)(5), Ar(i)(6))
³o­Ó¦n¹³¬O2ºû°}¦Cªº¤è¦¡¡A§A¬O¤£¬O¥Î°}¦CAr()¥]°}¦Cªº¤è¦¡(¥t¥~ªº¤¸¯À2~5¡A0¬°­qÁʫȤ᪺¦WºÙ¡A1¬O¥X³f³æ¸¹)¡C
³o­Ó¤è¦¡¦b³oùØ  Work¡A¥u¬O§Ú¨S¬Ý¹L¦³¤H³o¼Ë¥Î¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD