- ©«¤l
- 18
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-1
- ³Ì«áµn¿ý
- 2012-9-1
|
¦^´_ 11# GBKEE
°l¥[°Ý¤@Ó°ÝÃD
¦pªGn·j´M123,124¨âµ§¸ê®Æ
123ªº¸ê®Æ¦b¤u§@¶2¸Ì¥i§ä¨ì
124ªº¸ê®Æ¦b¤u§@¶3¸Ì¥i§ä¨ì
§Ú¥Î±zªºµ{¦¡½Xקï- For a = 2 To 3
- Sheets(a).Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, Rng(1), Rng(2).CurrentRegion
- Next
½Æ»s¥N½X ¥[¤F³o°j°é¡A³o¼Ë¥L¨âµ§¸ê®Æ³£·|§ä¨ì¡A¥i¬O·í²Ä2¦¸§ä¨ì®É´N·|§â²Ä1¦¸§ä¨ìªº¸ê®Æ»\±¼¡A¬O§_¥i¥HÅý²Ä¤G2§ä¨ìªº¸ê®Æ¦b²Ä1¦¸ªº¸ê®Æ¤§¤U¥H¦¹Ãþ±À |
|