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

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

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

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD