ªð¦^¦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 : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD