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

[µo°Ý] ½Ð±Ð¦p¦ó ¨Ï¥Îrange ©M Replace ¨ú¥N¯S©w¦r¤¸¡H

[µo°Ý] ½Ð±Ð¦p¦ó ¨Ï¥Îrange ©M Replace ¨ú¥N¯S©w¦r¤¸¡H

§Ú·Q­n¨ú¥N¦r¤¸  $  ¬°¦r¤¸  *
¦Ó¤£¨Ï¥Îfor°j°é¡C½Ð±Ð¦p¦ó¿ë¨ì¡H
ÁÂÁÂ¥ý¶i«ü±Ð~~~~¡C·P®¦¡I

Sub TEST1()  '·|¥X²{«¬ºA¤£²Å¿ù»~°T®§¡C
Range("A1:A35") = Replace(Range("A1:A35"), "$", "*")
End Sub

Sub TEST_2()
For X = 1 To 35
Cells(X, 1) = Replace(Cells(X, 1), "$", "*")
Next X
End Sub


°Ý°ÝÃD.rar (6.02 KB)

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD