[µo°Ý] CommandButton³]©w

wuwubaibai

½Ð°Ý«e½ú­Ì~
¤p§Ì±ý³]©w¤@­Ó¦æ¥i¼W¥[´î¤Ö«ö¶s..ª½±µ¥Î¿ý»s«á­±§â   Rows("2:2").Select §ï¦¨Rows().Select¿ù»~
½Ð°Ý¸Ó¦p¦ó³]©w©O~

¤U¸ü (63.37 KB)

2018-7-16 01:58

1. Sub ¼W¥[()
   
2. '
   
3. ' ¼W¥[ ¥¨¶°
   
4. '
   
5. Rows("2:2").Select
   
6.     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
7. End Sub
   
8. 
   
9. Sub §R°£()
   
10. '
    
11. ' §R°£ ¥¨¶°
    
12. '
    
13.   Rows("2:2").Select
    
14.     Selection.Delete Shift:=xlUp
    
15. End Sub

½Æ»s¥N½X