ªð¦^¦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 : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD