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

[µo°Ý] WITH µLªk¥Î©ó«ü©w¤u§@ªí ??

  1. Sub ACLEAR()
  2. With Sheets("sheet1") '«Dsheet2

  3. .Range("B65536").End(xlUp).ClearContents
  4. .Range("C65536").End(xlUp).ClearContents

  5. End With

  6. End Sub
½Æ»s¥N½X
1.³Qwithªºª«¥ó«e­±­n¥["."
2.«D·í«e©Ò¦b¤u§@ªíªºÀx¦s®æµLªkselect, ­Y§A¤£·QÂà¨ì¸Ó¤u§@ªí¥iª½±µ.ClearContents¦Ó¤£¶·­nselect.

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD