如果用VBA限定替换范围为当前工作表

任我逍遥 · 发表于 2017-10-12 22:25

Selection.Replace What:=" ", Replacement:=""，发现用这个代码替换空格的时候，如果不注意，工作标的替换范围为工作簿的话就换替换整个工作簿中的所有空格，这是我不希望见到的，如果用VBA在执行这个代码替换前将工作表的替换范围自动设置为“工作表”而不是“工作簿”呢，谢谢老师们

duquancai · 发表于 2017-10-12 22:37

非得要用这个代码吗？？？

microyip · 发表于 2017-10-12 22:39

在说什么呢？

duquancai · 发表于 2017-10-12 22:42

“Selection.Replace What:=" ", Replacement:=""，发现用这个代码替换空格的时候，如果不注意，工作标的替换范围为工作簿的话就换替换整个工作簿中的所有空格，这是我不希望见到的，如果用VBA在执行这个代码替换前将工作表的替换范围自动设置为“工作表”而不是“工作簿”呢，谢谢老师们”
那就注意点就行了噻！！！！

任我逍遥 · 发表于 2017-10-13 02:06

duquancai 发表于 2017-10-12 22:42
“Selection.Replace What:=" ", Replacement:=""，发现用这个代码替换空格的时候，如果不注意，工作标的替 ...

已经很注意了，但是表格太多，有时候操作太快就替换了整个工作簿，结果我有手快，保存关闭，这样这整个工作簿就很多内容要修改了，吃过好几次亏了。

任我逍遥 · 发表于 2017-10-13 02:07

duquancai 发表于 2017-10-12 22:37
非得要用这个代码吗？？？

还有什么好代码可以去掉所选区域中的所有空格么？

任我逍遥 · 发表于 2017-10-13 18:46

看来没有VBA代码改变查找和替换范围为工作表的，那么只能这样解决了TT：
For jjj = Line To t
Cells(jjj, 4) = Replace(Cells(jjj, 4), " ", "")
Next jjj

Haydonlynn · 发表于 2023-4-3 13:57

Set temp = cells.Find("", Matchbyte:=False)
Set temp = Nothing
我也遇到相似的问题，在其他地方看到的一个技巧
在代码前面加这句可以把查找替换窗口的检索范围改成“工作表”

summeren · 发表于 2023-7-7 14:44

Haydonlynn 发表于 2023-4-3 13:57
Set temp = cells.Find("", Matchbyte:=False)
Set temp = Nothing
我也遇到相似的问题，在其他地方看到 ...

谢谢找了这么就终于找到了我也有这个烦恼

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

[求助] 如果用VBA限定替换范围为当前工作表