超级上火！大伙帮看下这个简单至极的replace到底哪儿错了？

东南西北中发财

Sub test()
    Dim rn As Range
    Set rn = Cells.Find("标题", lookat:=xlWhole)
    Range(rn.Offset(1), rn.End(xlDown)).Replace ".", ""
End Sub


如上图，我就是想把指定区域的点替换成空，到底错哪儿了？坚决不执行！
天气太热了，恳请给我来个提锤灌顶

超级上火中.rar (12.89 KB, 下载次数: 10)

2020-6-6 16:01 上传

点击文件名下载附件

microyip

真看不出什么问题，我随便新建一个文档，执行代码是正常的，就不知道你的文档里有哪里的猫腻，果然天天新鲜

蓝桥玄霜

1. Sub test()
   
2.     Dim rn As Range
   
3.     Set rn = Cells.Find("标题", lookat:=xlWhole)
   
4.     Range(rn.Offset(1), rn.End(xlDown)).Replace ".", "", 2
   
5. End Sub
   
6. 
   

复制代码

东南西北中发财

蓝桥玄霜 发表于 2020-6-6 16:16

太谢谢老师了！能再给点拨两句不？我以前这么用从来都是正常的，今天不知道怎么了。这个2是指的xlpart ? 为什么要加呢？

东南西北中发财

microyip 发表于 2020-6-6 16:15
真看不出什么问题，我随便新建一个文档，执行代码是正常的，就不知道你的文档里有哪里的猫腻，果然天天新鲜

我这就是个新建的文档，粘贴的值

东南西北中发财

我突然开悟了！
因为我前面一句用了 lookat:=xlwhole ，下次再用的时候，默认还是这个

microyip

东南西北中发财 发表于 2020-6-6 16:26
我突然开悟了！
因为我前面一句用了 lookat:=xlwhole ，下次再用的时候，默认还是这个

给你点赞，这样都让你领悟到，但我自己还在懵逼中，前面的是Find的参数，后面是Replace的参数，难道这个LookAt参数是公共变量？

7433518

你试一下，rn.Offset(1) 及 rn.End(xlDown)都是值得，不是单元格吧？你 msgbox rn.Offset(1) 试试

zhangmi

7433518 发表于 2020-6-6 16:32
你试一下，rn.Offset(1) 及 rn.End(xlDown)都是值得，不是单元格吧？你 msgbox rn.Offset(1) 试试

这个应该不是问题，msgbox rn.offset(1).value，也是可以执行的。
还是蓝桥老师底子深厚