¦p¦ó±qAÀɮפ¤¿ï¨ú¿z¿ï½d³ò¸ê®Æ«á¦A½Æ»sBÀɮפ¤?
- ©«¤l
- 23
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- WIn7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-30
- ³Ì«áµn¿ý
- 2013-7-10
|
¦^´_ 1# ckl520
¥H¤U½d¨Ò±N²Ä¤@Ó¤u§@ªíªº¿z¿ï¤º®e½Æ»s¨ì²Ä¤GÓ¤u§@ªí
¥i¥H¨Ì»Ý¨D¦Û¦æ½Õ¾ã- Sub Test()
- '½Æ»s«e¥ý±N¥Øªº¤u§@ªí²MªÅ
- Sheets(2).UsedRange.Clear
- '±q¨Ó·½¤u§@ªí½Æ»s¥i¨£ªºÀx¦s®æ¨ì¥Øªº¤u§@ªí
- Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy _
- Destination:=Sheets(2).Range("A1")
- End Sub
½Æ»s¥N½X |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|