批量替换￥

1583478094 · 发表于 2018-11-19 15:43

请教一下如何用代码批量替换￥

以下的代码无作用
Sub 替换()
Cells.Select
Range("F19").Activate
Selection.Replace What:="￥", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

lsc900707 · 发表于 2018-11-19 15:47

附件文件已损坏，打不开，请重新上传附件！

1583478094 · 发表于 2018-11-19 15:59

重新上传，谢谢！！！！！！

YZC51 · 发表于 2018-11-19 17:00

Cells.Replace Application.Asc(Left(Range("F9"), 1)), ""

1583478094 · 发表于 2018-11-20 11:49

YZC51 发表于 2018-11-19 17:00
Cells.Replace Application.Asc(Left(Range("F9"), 1)), ""

您太厉害啊，就这一行代码就能替换掉，非常感谢！！！！！！

YZC51 · 发表于 2018-11-20 13:12

不客气！能用就好！

		自动登录	找回密码
密码			免费注册

[求助] 批量替换￥

评分

最新热点 /1