[已解决][求助]关于批量替换

hyk86223 · 发表于 2009-9-12 15:26

比如我想把工作表的中1到30的数字，替换成“文本”

如何实现，一个个替换太浪费时间了

虽然给了最佳答案，但不是我想要的这种效果。

我想要的是数据的替换如20，21，22，23，24，25，26，27的数字，替换成“数字”怎么做

[此贴子已经被作者于2009-9-12 15:58:23编辑过]

最佳答案

帅

2009-9-12 15:44

[求助]关于批量替换

用定位数值，然后按ctrl+回车

随风而去 · 发表于 2009-9-12 15:30

说的不够清楚，来附件吧

hyk86223 · 发表于 2009-9-12 15:32

表达不清吧，

如 “1”替换成“文本”

“2”替换成“文本”

“3”替换成“文本”等。。。。。

HYY514 · 发表于 2009-9-12 15:33

Sub ff()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If IsNumeric(c.Value) Then c.Value = "'" & c.Value
Next
End Sub

[此贴子已经被作者于2009-9-12 15:34:24编辑过]

hyk86223 · 发表于 2009-9-12 15:37

好象不行哈。

我的意思是批量替换（1-30的数字多替换成“数学”）

“1”替换成“数学”

“2”替换成“数学”

“3”替换成“数学”等，，

单车代步 · 发表于 2009-9-12 15:39

用条件格式（介于1-30）设置单元格后，再查找替换

[此贴子已经被作者于2009-9-12 15:39:30编辑过]

HYY514 · 发表于 2009-9-12 15:43

请把你的问题说清楚。

上传附件！

帅 · 发表于 2009-9-12 15:44

[求助]关于批量替换

用定位数值，然后按ctrl+回车

帅 · 发表于 2009-9-12 15:46

如果替换成“数学”，把“文本”二字改为“数学”就可以了[em01]

领风飞翔 · 发表于 2009-9-12 15:47

麻烦上传附件![em01]

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