- ©«¤l
- 29
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 82
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-6-14
- ³Ì«áµn¿ý
- 2020-9-14
|
[µ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¾Ç²ßªº |
|