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

eikok

求能自动删除【￥】的代码？(￥后面的数字不用删除）
因为Excel中有￥，公式都不能自动计算

最佳答案

月排行榜 / 总排行榜

wenzili

2017-3-1 11:26

Public Sub ee()
Dim everyitem As Range
For Each everyitem In ActiveSheet.UsedRange
everyitem = Replace(everyitem, "￥", "")
Next
End Sub

跳转到最佳答案楼层

望帝春心

查找￥，替换为空

eikok

望帝春心 发表于 2017-3-1 08:30
查找￥，替换为空

这个ctrl+c ￥
Ctrl+h
的手动操作会
想求教有没有自动代码？

望帝春心

eikok 发表于 2017-3-1 09:58
这个ctrl+c ￥
Ctrl+h
的手动操作会

怎么个自动法？用意念吗？写代码也是要动手的...

望帝春心

eikok 发表于 2017-3-1 09:58
这个ctrl+c ￥
Ctrl+h
的手动操作会

这是最简单的方法了，不要想太多

wenzili

Public Sub ee()
Dim everyitem As Range
For Each everyitem In ActiveSheet.UsedRange
everyitem = Replace(everyitem, "￥", "")
Next
End Sub

上清宫主

Cells.Replace What:="￥", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
录的宏

eikok

wenzili 发表于 2017-3-1 11:26
dim item as range
for each item in activsheet.usedrange
item=Replace(item, "￥", "")

eikok

上清宫主 发表于 2017-3-1 11:52
Cells.Replace What:="￥", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchC ...

wenzili

见上面修改，已补全。