Question

如何在excel宏中搜索并替换某个字符啊？

不好意思，刚刚的提问竟然失效了，百度怎么这样..........

1 指定区域内进行下列操作，比如在57列至81列、54行至75行之间进行。
2 我想搜索”空格“或者”#VALUE!“这2个东西，只要一遇见这2个东西其中之一，就将其改为x；
3 我想删除”空格” 和“换行符“，只要遇见这两个其中之一，就删除，又该怎么办啊？

PS：我刚刚编了一个宏（只会最简单的，汗），查找并替换空白单元格可以实现，可是一但遇见"#VALUE!"这个就不行了（单元格全是值，无公式），查找替换"#VALUE!"也不行，奇怪，请问是怎么回事啊？

Sub 测试自动填充错误单元格()
i = 57 '从第i行开始检查数据
Do
x = 54 '从第x行开始检查数据
If i > 81 Then Exit Do '最末列结束程序
Do
A1:
If Cells(x, i) = "#VALUE!" Then Exit Do
x = x + 1
If x > 74 Then GoTo A2

Loop
Cells(x, i) = "xxx"
x = x + 1
If x > 74 Then GoTo A2
GoTo A1
A2:
i = i + 1
Loop
End Sub

Answer 1

问题出现在If Cells(x, i) = "#VALUE!" Then Exit Do
好好理解这句

追问

这句没问题啊，我把#VALUE!换成空格，或者别的字符，运行的时候就能够替换。高手能不能给个能同时实现我说的那3点的宏啊？谢谢

追答

问题是你还没有替换就已经Exit Do
提示一下吧，查找字符或者字符串，使用 instr() 函数，替换使用 replace() 函数，回车换行符用“Chr(13) + Chr(10) ”表示，努力吧。好好学习，我就不帮你完成了

追问

我看了半天没有问题的呀，If Cells(x, i) = "#VALUE!" Then Exit Do，找到之后exit do，然后跳到Cells(x, i) = "xxx"这句，事实上，我就是查找替换#VALUE!不成功，但是用这些代码去查找数字字母组合、文字数字组合，却能够成功，很是奇怪。

追答

Sub ss()
Dim s As String
For i = 1 To 50 'col
For j = 1 To 50 'row
If IsError(Cells(j, i)) Then '判断该单元格内数值是不是“#VALUE!”
Cells(j, i) = "x" '如果是，直接替换成x
Else
Cells(j, i) = Replace(Cells(j, i), "#VALUE!", "x") '把字符串中的“#VALUE!”替换成x
Cells(j, i) = Replace(Cells(j, i), " ", "x") '把字符串中的“ ”替换成x
Cells(j, i) = Replace(Cells(j, i), Chr(10), "x") '把字符串中的换行符替换成x
End If
Next
Next
End Sub