[µo°Ý] ½Ð°Ý¦¹²M°£¦Ü³Ì«áÀx¦s®æ«ü¥O¸Ó¦p¦óÁYµu ?

starry1314

Sheets("²M³æ").Select
    Range("A2:K2").Select
    Range(Selection, Selection.End(xlDown)).Clear


¦p¦ó±N¥H¤W«ü¥O°µÀu¤Æ©O?

    Sheets("²M³æ"). Range("A2:K2").Select  <<³o¼Ë°µ·|¥X¿ù...
·QÁYµu¦¨¤@¦æ«ü¥O¥B¯à§_¤£­n¨Ï¥Îselect

GBKEE

¦^´_ 1# starry1314

1. Option Explicit
   
2. Sub Ex()
   
3.     'CurrentRegion ÄÝ©Ê ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C°ßŪ
   
4.     Sheets("²M³æ").Range("A2:C2").CurrentRegion.Clear
   
5.     'Sheets("²M³æ"). Range("A2:K2").Select  <<³o¼Ë°µ·|¥X¿ù...
   
6.     'µ{¦¡°õ¦æ®É Sheets("²M³æ") ¤£¬O¬¡­¶Ã¯ªº§@¥Î¤¤ªº¤u§@ªí
   
7.     '½Ð­×§ï¦p¤U
   
8.    'With Sheets("²M³æ")
   
9.    '     .Select
   
10.    '     .Range("A2:K2").Select
    
11.    '     .Range(Selection, Selection.End(xlDown)).Clear
    
12.    'End With
    
13. End Sub

½Æ»s¥N½X

starry1314

¦^´_ 2# GBKEE
·PÁ±оÇ~~~