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

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

[µ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 As Integer
For i = 2 To 500
If Cells(i, 3).Value = "¥þ¼Æ¤U¬[" Then
    Cells(i, 3).delete (3)

End If
Next i
End Sub
¬°¦ó§Ú°õ¦æ«á³£·|¯d¤@¦æ¨S§R°£ µLªk§R°£¦C.rar (27.95 KB)
§Ú·s¤â¦ý§Ú·|§V¤O¾Ç²ßªº

ÁÂÁ¤j¤j ¥i¥H¥Î¨º§Ú¥i¥H½Ð°Ý¤@¤UStep -1¤£¤Ó¤F¸Ñ¥¦ªº¥Î·N

TOP

ÁÂÁ¤j®aªº¸ÑÄÀ§Ú¤F¸Ñ©Ô ·R¦º§A­Ì¤j®a©Ô ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD