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

½Ð°Ý¦p¦ó§R°£¦h¾lªÅ¥Õªº¸ê®Æ¦C

±N¸ê®ÆÄæ¸ê®Æ½Æ»s¨ì·sªí
¥Î½s¿è¨ú¥N¥\¯à±N²Ä2¦C¥H¤Uªº"½s¸¹"¦r¦ê²MªÅ
¿ï¨ú¸ê®Æ²Ä¤@Äæ
½s¿è/¨ì ªÅ®æ
¥kÁä§R°£/§R°£¾ã¦C
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# PD961A
  1. Sub nn()
  2. With Range("A2", [A65536].End(xlUp))
  3. .Replace "½s¸¹", ""
  4. .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  5. End With
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD