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

¦p¦ó¤ñ¹ï¨â­¶¸ê®Æ¡A¨Ã±N¸ê®Æ¦C¥X©ó²Ä¤T­¶

¦p¦ó¤ñ¹ï¨â­¶¸ê®Æ¡A¨Ã±N¸ê®Æ¦C¥X©ó²Ä¤T­¶

1.¥H¼Ð·Ç­¶¬°°ò·Ç¡C
2.®³¤ñ¹ï­¶¤¤AÄ檺data©M¼Ð·Ç­¶AÄæ¶i¦æ¤ñ¹ï¡C
3.­Y¦³¤ñ¹ï­¶AÄæ¸ê®Æ»P¼Ð·Ç­¶AÄ榳¬Û¦P¡A«h±N¤ñ¹ï­¶B¡BC¡BG¡BKÄæµ²ªGÅã¥Ü¦bµ²ªG­¶¡C

¥H¤W
·PÁ¨ó§U

¸ê®Æ¤ñ¹ï.rar (3.7 KB)

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-10-2 21:46 ½s¿è

¦^´_ 1# baa168
  1. Sub ex()
  2. Dim Ar()
  3. With Sheets("¤ñ¹ï")
  4. For Each a In .Range(.[A1], .[A1].End(xlDown))
  5.    If IsNumeric(Application.Match(a, Sheets("¼Ð·Ç").Columns("A"), 0)) Then
  6.        ReDim Preserve Ar(s)
  7.        Ar(s) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 6).Value, a.Offset(, 10).Value)
  8.        s = s + 1
  9.    End If
  10. Next
  11. End With
  12. Sheets("µ²ªG").[A1].Resize(s, 5) = Application.Transpose(Application.Transpose(Ar))
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ¨â­Ósheet¦U¤Ö¤F¤@­Ós
    ¥¿½TÀ³¸Ó¬Osheets

    ¥H¤W

TOP

¦^´_ 3# luke


   ÁÂÁ«ü¥¿¡A¤w­q¥¿
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

«¢«¢«¢....¬ã¨s¤F§Ö¤@­Ó¤ë¤F...²×©ó¤F¸Ñ¤F....·PÁ¦U¦ì¦³³Ò¤F...

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD