eg0802

¦^´_ 9# oobird


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

oobird

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

register313

¦^´_ 7# eg0802

5¼Ó¤§µ{¦¡

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

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

eg0802

¦^´_ 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¤â¬Ý??

eg0802

¦^´_ 4# register313


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

register313

¦^´_ 3# eg0802
¶À©³½d³ò¾ã¦CªÅ¥ÕªÌ§R°£

¤U¸ü (50.2 KB)

2012-3-4 20:17

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

register313

¦^´_ 3# eg0802

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

¤U¸ü (20.47 KB)

2012-3-4 20:07

eg0802

¦^´_ 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

register313

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

¨Ï¥ÎVBA
1.¥[¤JÄæ¦ì¦WºÙ
2.³]½d³ò¬°A1~E10

¤U¸ü (46.24 KB)

2012-3-4 15:57

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)

¤U¸ü¦¸¼Æ: 13

2012-3-4 16:00