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

¦p¦ó±qAÀɮפ¤¿ï¨ú¿z¿ï½d³ò¸ê®Æ«á¦A½Æ»sBÀɮפ¤?

¦^´_ 1# ckl520


    ¥H¤U½d¨Ò±N²Ä¤@­Ó¤u§@ªíªº¿z¿ï¤º®e½Æ»s¨ì²Ä¤G­Ó¤u§@ªí
    ¥i¥H¨Ì»Ý¨D¦Û¦æ½Õ¾ã
  1. Sub Test()
  2.     '½Æ»s«e¥ý±N¥Øªº¤u§@ªí²MªÅ
  3.     Sheets(2).UsedRange.Clear
  4.     '±q¨Ó·½¤u§@ªí½Æ»s¥i¨£ªºÀx¦s®æ¨ì¥Øªº¤u§@ªí
  5.     Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy _
  6.         Destination:=Sheets(2).Range("A1")
  7. End Sub
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD