- ©«¤l
 - 59 
 - ¥DÃD
 - 15 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 108 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - winXp 
 - ³nÅ骩¥»
 - office2003 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - «ÌªF 
 - µù¥U®É¶¡
 - 2011-12-16 
 - ³Ì«áµn¿ý
 - 2018-8-10 
 
  | 
                
¦^´_ 1# pitera88  
 
 
    Sub Macro1() 
    Range("C:C,F:F,G:G,H:H,J:J,K:K,L:L").Select 
    Selection.Copy 
    Sheets.Add 
    Cells.Select 
    ActiveSheet.Paste 
End Sub 
 
§Ú¦Û¦æ§@ªº¿ý»s¥¨¶°¡A¤]§â¥¦¶×¥X¤F¡A¦ý¦³¿ìªk¤£¥Î¤@ª½¶×¤J¡A¦]¬°nµ¹§O¤H¤]·|¨Ï¥Î¡C ·P®¦!! |   
 
 
 
 |