[已解决]求能自动删除【￥】的代码？

爱疯

弄个附件：举几个数据，说明执行后的效果看看

eikok

爱疯 发表于 2017-3-1 16:10
弄个附件：举几个数据，说明执行后的效果看看

Public Sub ee()
Dim everyitem As Range
For Each everyitem In ActiveSheet.UsedRange
everyitem = Replace(everyitem, "￥", "")
Next
End Sub
求的就是这个，多谢

爱疯

Cells.Replace "￥", ""


range对象里的replace方法，对应的就是替换操作
7楼的录制宏里的不就是这个么。