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

register313

¦^´_ 3# eg0802

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

¤U¸ü (20.47 KB)

2012-3-4 20:07

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

¦^´_ 7# eg0802

5¼Ó¤§µ{¦¡

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

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

register313

¦^´_ 11# eg0802

¤U¸ü (156.56 KB)

2012-3-4 23:47

register313

¦^´_ 15# eg0802

¦P¶Wª©12Fªº§@ªk
®t§O¦b³Ì«á¤@¨BÆJ
§R°£¦C => ÁôÂæC