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

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

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

sheet2 ¬°¤u§@µøµ¡¡A¥¨¶°¸Ì«ü©w¬°sheet1 1.rar (7.54 KB)
©Ò±oªºµ²ªG·|¦bsheet2 ¤W??
¦³µL¨ä¥L¤èªk¸Ñ¨M?
°£¤F Sheets("sheet1").select ©Î  Sheets("sheet1").Activate  ¤§¥~?
Sub ACLEAR()
'With Workbooks("1.xls").Sheets("sheet1")
With Sheets("sheet1") '«Dsheet2
Range("B65536").End(xlUp).Offset(0).Select
Selection.ClearContents
Range("C65536").End(xlUp).Offset(0).Select
Selection.ClearContents
End With

End Sub

  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 : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD