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

[µo°Ý] §R°£ªÅ¥ÕÀx¦s®æ¤@¾ã¦C

[µo°Ý] §R°£ªÅ¥ÕÀx¦s®æ¤@¾ã¦C

¥»©«³Ì«á¥Ñ eg0802 ©ó 2012-3-4 14:33 ½s¿è

¦U¦ì¤j¤j¤p§Ì¤S¦³°ÝÃDµo°Ý¡AÁٽЦU¦ì¤j¤jÀ°À°¦£
°²³]     A    B    C    D    E
       1   50
       2
       3         60
       4                               70
       5

¸Õ°Ý¸Ó¥Î¤°»ò¤èªk  Åý¹q¸£¥i¥Hª¾¹D   ÂǥѪťժºÀx¦s®æ¥h§R°£¤@¾ã¦C(2.5)©O?
Jason

¥»©«³Ì«á¥Ñ register313 ©ó 2012-3-4 16:00 ½s¿è

[attach]9838[/attach]¦^´_ 1# eg0802

¨Ï¥ÎVBA
1.¥[¤JÄæ¦ì¦WºÙ
2.³]½d³ò¬°A1~E10
  1. Sub §R°£ªÅ¥Õ¦C()
  2. Set Rng = Range([A1], [E10])
  3. Rng.Select
  4. Rng.AutoFilter
  5. For R = 1 To [IV1].End(xlToLeft).Column
  6.   Rng.AutoFilter Field:=R, Criteria1:="="
  7. Next R
  8. Rng.Offset(1, 0).Delete Shift:=xlUp
  9. Rng.AutoFilter
  10. End Sub
½Æ»s¥N½X
§R°£ªÅ¥Õ¦C.rar (5.35 KB)

TOP

¦^´_ 2# register313


    ¤j¤j±z¦n ¤£¦n·N«ä¤@ª½³Â·Ð§A ¥i¯à¬O§Úªí¹F¨S²M·¡  ±z¼gªº»yªk  ¥u¯à¦b²Ä¤@Äæ¶}©l  ¦pªG¦bªí®æªº¤¤¶¡ ´N¬O«D±qA1¶}©l  ­^¤å¬°Äæ  ¼Æ¦r¬°¦C  ¥H¤U¹Ï¨Ó»¡ §Ú§Æ±æ§R±¼"¤þ"¾ã¦C   ¦]¬°¥HC6:G10¬O¾ã¦CªÅ¥Õªº Àµ½ÐÀ°§Ú«üÂI°g¬z¤@¤U ·P¿E¤£ºÉ!!
              C       D       E        F        G
           ­»¿¼  Ä«ªG  »ñ±ù  ¬h¤B  ¨~ªG
6  ¥Ò   80
7  ¤A            70
8  ¤þ
9  ¤B                                  60
10¥³                                             90
Jason

TOP

¦^´_ 3# eg0802

¤£´N¬O
°£²Ä¤@¦CÄæ¦ì¦WºÙ¥~
§â¨ä¥L¾ã¦CªÅ¥Õ¦C§R°£
1.gif

TOP

¦^´_ 3# eg0802
¶À©³½d³ò¾ã¦CªÅ¥ÕªÌ§R°£
  1. Sub §R°£ªÅ¥Õ¦C()
  2. R = [A65536].End(xlUp).Row
  3. C = [IV1].End(xlToLeft).Column
  4. Set Rng = Range([A1], Cells(R, C))
  5. Rng.Select
  6. Rng.AutoFilter
  7. For R = 2 To C
  8.   Rng.AutoFilter Field:=R, Criteria1:="="
  9. Next R
  10. Rng.Offset(1, 0).Delete Shift:=xlUp
  11. Rng.AutoFilter
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# register313


    ¥i¬O§ÚªºA1.A2.A3.A4.A5 ¬O¦³¤º®eªº  ¨Ã«D¤j¤j¹Ï A2.A3.A4....¬OªÅ¥Õªº
Jason

TOP

¦^´_ 5# register313


    ¤£¦n·N«ä¤j¤j  ³o¥¿¬O§Ú»Ý­nªº ¦A°Ý¤@­Ó«ÜÄøªº°ÝÃD  ¦pªG­n§ï½d³ò  ¬O¦b­þÃä§ï....«Ü©êºp§Ú­è±µÄ²vba¤£¤[ °Ý¤@°ïÄø°ÝÃD  ¦A°Ý¤@¤U  ¦³¨S¦³«Øijªº®ÑÄy±ÀÂ˧ڳo­Ó·s¤â¬Ý??
Jason

TOP

¦^´_ 7# eg0802

5¼Ó¤§µ{¦¡

²Ä1Äæ~²ÄXXXÄæ¬Ò¥i
²Ä1¦C~²ÄYYY¦C¬Ò¥i

®Ñ¬O¦ºªº
¥»½×¾Â¶W¯Åª©¥D,ª©¥D¬O¬¡ªº,¨S¦³¤ñ¥»½×¾Â§ó¦nªº®Ñ¤F

TOP

¥ý¾Ç·|µo°Ý¤ñ¸û­«­n
§A¤£¤W¶Ç¤å¥óÅý¦^µª§Aªº¤H¤£Â_²q´ú§Aªº¤å¥óµ²ºc¡AÁÙ­n¼ÒÀÀ«Ø¥ßÀÉ®×
¤£¬Û²Å¤S¦A­×§ï
«Ü®ö¶O®É¶¡»PªÅ¶¡

TOP

[ª©¥DºÞ²z¯d¨¥]
  • ANGELA(2012-3-4 21:44): ¤W¶Ç¤å¥ó¤£¤Àµ¥¯Å,EXCELÀÉ­nÀ£ÁY¦¨.ZIP©Î.RARµ¥.¤U¸ü¤~¦³­­¨î.

¦^´_ 9# oobird


    ¤j¤j §Ú¤]«Ü·Q  ¦ý§Ú²{¦bÁÙ¨S¿ìªk¤W¶Ç.....µ¥¯Å¤Ó§C >"<
Jason

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD