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

¦p¦ó§â¤u§@ªí1¸ê®Æ¿é¤J¤u§@ªí2

¦p¦ó§â¤u§@ªí1¸ê®Æ¿é¤J¤u§@ªí2

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2013-10-8 19:16 ½s¿è

¤j¤j­Ì, ½Ð±Ð¤@­Ó¿é¤J°ÝÃD, ¨C¤Ñ³£¥²¶·¦b¤u§@ªí1¶À¦â°Ï°ì¶ñ¼g¸ê®ÆµM«á§â¸ê®Æ¿é¤J¤u§@ªí2¶Àªº¦â°Ï°ì¤º, ¦Ó¨C¦¸¿é¤J¤u§@ªí2³£©µÄò©¹¤U,
¦Ó²{®É³Ì¤jªº°ÝÃD¬O¤u§@ªí1¸ê®Æ°Ï¬O¦³¦X¨ÖÄæ¦ì, ¦bµ{¦¡¤W¬O§_¥i¥H°µ¨ì¤W­z­n¨D.

¥»©«³Ì«á¥Ñ owen06 ©ó 2013-10-9 09:29 ½s¿è

¦^´_ 1# ©P¤j°¶

¸Õ¸Õ¬Ý~
  1. Sub test()
  2. Sheet1.Range("d15:" & [k65536].End(xlUp).Address(0, 0)).Copy
  3. Sheet2.Select
  4. Sheet2.[a65536].End(xlUp).Range("a2").Select
  5. ActiveSheet.Paste
  6. Columns("d").Hidden = True
  7. Sheet2.[a65536].End(xlUp).Select
  8. End Sub
½Æ»s¥N½X

TOP

¤£¦n·N«ä¡A¸É¥R¤@¤U¡A
Columns("d").Hidden = True ­n§ï¦¨
sheet2.Columns("d").Hidden = True
³o¼Ë¤~¤£·|§âªí¤@ªºdÄæ¤]ÁôÂñ¼

TOP

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2013-10-9 10:54 ½s¿è

¦^´_ 3# owen06
¦ó¨Ó¤£¦n·N«ä, ±o¨ì¤j¤j­Ì¦^À³, ¦hÁÂÁÙ¨Ó¤£¤Î, ¯u¤ß·PÁÂ....

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD