§Ú·Qn¨ú¥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)
|