Excel中自动替换所有单元格中满足条件的某个特定字符为其它字符!
如,M5*20当中的“*”自动替换成“×”,即替换后为:M5×2,也就是只替换一串字符串当中的某一个或几个特定字符,其余不变。我要的是一坦输入就自动替换,而不是要什么查找...
如,M5*20当中的“*”自动替换成“×”,即替换后为:M5×2,也就是只替换一串字符串当中的某一个或几个特定字符,其余不变。
我要的是一坦输入就自动替换,而不是要什么查找替换功能,这个我知道。
可以是VBA代码,或者是宏之类的,当然,最好能有具体的注释,谢谢! 展开
我要的是一坦输入就自动替换,而不是要什么查找替换功能,这个我知道。
可以是VBA代码,或者是宏之类的,当然,最好能有具体的注释,谢谢! 展开
4个回答
展开全部
Sub test()
Dim rng As Range
Dim Str$, Str1$, Str2$
Dim i%
v1 = InputBox("Target:")
v2 = InputBox("Replace with:")
For Each rng In Sheet1.Range([a1], [c3])
5:
i = 0
v = rng.Value
i = InStr(1, Str, Str1)
If i <> 0 Then
rng.Value = Left(Str, i - 1) & Str2 & Right(Str, Len(Str) + 1 - i - Len(Str1))
GoTo 5
End If
Next
End Sub
这段code应该可以满足你的需求
Dim rng As Range
Dim Str$, Str1$, Str2$
Dim i%
v1 = InputBox("Target:")
v2 = InputBox("Replace with:")
For Each rng In Sheet1.Range([a1], [c3])
5:
i = 0
v = rng.Value
i = InStr(1, Str, Str1)
If i <> 0 Then
rng.Value = Left(Str, i - 1) & Str2 & Right(Str, Len(Str) + 1 - i - Len(Str1))
GoTo 5
End If
Next
End Sub
这段code应该可以满足你的需求
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用Office的自动校对功能即可
在 自动更正选项 里面,替换内容输入*,更换为×
在 自动更正选项 里面,替换内容输入*,更换为×
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
七四七四七四答的超极棒!!!
在常用菜单栏是的工具选项条里有“自动更正选项”可以满足你的愿望
在常用菜单栏是的工具选项条里有“自动更正选项”可以满足你的愿望
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
查找M5*20,替换M5×2,全部即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询