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

[µo°Ý] ·s¤â½Ð±Ð¬°¦ó§Ú§R°£¦C³£·|¯d¤@¦C

¤p²Ä­è¾ÇVBA ¬Q¤Ñ¾Ç¨ì¥ÎDELETE(3)¥i¥H§R°£¦C´N¾Ç¥Î¦ý³£·|¯d¤@¦CµLªk§R°£§Ú«ü©wªº
Sub xusre()

Dim i  ...
hu0318s µoªí©ó 2013-9-10 22:37


§RªF¦èªº¸Ü³q±`­Ë¼Æ·|¤ñ¸û¤è«K
  1. Sub xusre()

  2. Dim i As Integer
  3. For i = 500 To 2 Step -1
  4. If Cells(i, 3).Value = "¥þ¼Æ¤U¬[" Then
  5.     Cells(i, 3).delete (3)

  6. End If
  7. Next i
  8. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD