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

¦p¦ó·j´M¦h­Ósheetªº¸ê®Æ¶K¨ì²Ä¤@­Ósheet¤º?

¦p¦ó·j´M¦h­Ósheetªº¸ê®Æ¶K¨ì²Ä¤@­Ósheet¤º?

½Ð±Ð¦U¦ì«e½ú
²Ä¤@­Ósheet­n³]­p¤@­Ó¿é¤JÄæ¦ì°µ·j´M

¥i¥H·j´M¦P¤@Àɮפº©Ò¦³sheetªºAÄæ¦ì¦P¼Ëªº¸ê®Æ

¨Ã±N¨ä¥Lsheet¦P¦WºÙAÄæ¦ì©¹¥kªº©Ò¦³¸ê®Æ½Æ»s¶K¤W¦Ü²Ä¤@­Ósheet«ü©w¦ì¸m¥H¤U


½Ð°Ý¦³¤j¤j¥i¥H¤À¨É¶Ü? ÁÂÁÂ

ss

TOP

ss

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-5-8 07:19 ½s¿è

¦^´_ 1# incest1224
¨S¦³ÀÉ®×´ú¸Õ¡A§A¥ý¸Õ¸Õ¬Ý§a
  1. Sub ex()
  2. Dim Ar(), i%, C$, A As Range
  3. With Sheets(1) '²Ä¤@±i¤u§@ªí
  4. C = .[B2].Value '­n¿z¿ïªº­È
  5.    For i = 2 To Sheets.Count '±q²Ä2±i¤u§@ªí¶}©l¦^°é
  6.       With Sheets(i)
  7.          For Each A In .UsedRange.Columns(1).Cells 'AÄæ¤w¨Ï¥ÎÀx¦s®æ°µ°j°é
  8.             If A = C Then '¦pªG»P­n¿z¿ïªº­È¬Û¦P
  9.                ReDim Preserve Ar(s)
  10.                Ar(s) = A.Resize(, 10) '±N¸Ó¦CA:JÄæ¼g¤J°}¦C
  11.                s = s + 1
  12.             End If
  13.          Next
  14.       End With
  15.     Next
  16. .[A6].CurrentRegion.Offset(1).ClearContents '²M°£Â¦³¸ê®Æ
  17. If s > 0 Then .[A7].Resize(s, 10) = Application.Transpose(Application.Transpose(Ar)) '­Y¦³²Å¦X¶µ¥Ø«h¼g¤J¤u§@ªí1ªºA7¥H¤U¦ì¸m
  18. End With

  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ¦^ÂÐH¶Wª©

    End Sub¤§«e¤Ö¤F³o¤@¥yEnd With

    ¥H¤W

TOP

¦^´_ 2# sunnyso


¥»¥H¬°­n§¹¥þ¹ïÀ³Àx¦s®æ¤º®e¥h·j´M~   
¨S·Q¨ìÁÙ¥i¥HÃöÁä¦r·j´M¤è¦¡!!  ³o¼Ë¤l¬Ý°_¨Ó¤ñ¸û¦n¥Î¡A¨ü±Ð¤F~
¦ý¿n¤À¤£¨¬¡A­n¦h§V¤O²Ö¿n¤~¥i¥H¤U¸üÂP!!  ÁÂÁÂS¤jªº¤À¨É

TOP

¦^´_ 4# Hsieh


    ¥ýÁÂÁÂHª©¤j
¸Õ¸Õ¬Ý¥ýÂP^^

TOP

¦^´_ 4# Hsieh

Hª©¤j~¸I¨ì¤@­Ó°ÝÃD@@
±zªºµ{¦¡½X´ú¸Õ§ÚPOªº¤p½d¨Ò¥i¥HÀ³¥Î¨S°ÝÃD(¨S¦³§Ú¤U­±¸I¨ìªº°ÝÃD)

¦ý®M¨ì§ÚªºÀɮפº¡A´Nµo²{¥L¦b²M°£Àx¦s®æ®É²§±`
¦pªG§Ú²Ä¤@¦¸·j´M¥X¨Óªº¦C¼Æ¤j©ó²Ä¤G¦¸ªº¦C¼Æ
«h²Ä¤@¦¸¦h¾lªº¦C¼Æ´N·|´Ý¯d¸ê°T¦b¤W­±¡A¤£ª¾¹D¬O§ÚÀɮצ³°ÝÃD  ÁÙ¬O¸ê®Æ¦³°ÝÃD???

¦]¬O­«­n¸ê®Æ~¤£¤è«K³zÅS¸Ô²Ó¸ê°T

TOP

¦^´_ 8# incest1224
¤£ª¾¹D¬O§ÚÀɮצ³°ÝÃD  ÁÙ¬O¸ê®Æ¦³°ÝÃD???
¨S¦³ÀÉ®×,½Ö·|ª¾¹D (½Ðªþ¤WÀÉ®× §tµ{¦¡½X!)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD