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

[µo°Ý] ¿z¿ï«á¤£·|Åã¥ÜÁôÂÃÄæ¦ì

  1. Sub abc()
  2. Range([a2], [a65536].End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
  3. Range("C1").PasteSpecial
  4. End Sub
½Æ»s¥N½X
­nª`·Npaste®É,¤@¨Ç¦r¥À¸¨¦b²Ä4-7 rowªº®É­Ô,»Ý­n§âÁôÂêºrowÅã¥Ü¥X¨Ó
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD