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

Àx¦s®æ=0®É,«ö¶sÅܦ¨ ""

¦^´_ 1# myleoyes
  1. Sub Ex()
  2.     Dim F As Range
  3.     Set F = Range("A3:Z150").Find(0)
  4.     Do While Not F Is Nothing
  5.         F.Value = ""
  6.         Set F = Range("A3:Z150").FindNext
  7.     Loop
  8. End Sub
½Æ»s¥N½X

TOP

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