我正在尝试更新一段从Excel工作表中删除特定文本的VBA代码。在这种情况下,我试图删除,“[No]”和我目前的代码读取:
ActiveWorkbook.ActiveSheet.Range("A1").Select
'This gets rid of all of the [No]s that appear in the dynamic comment boxes on the survey.
ActiveWorkbook.ActiveSheet.Cells.Replace What:="[No]" & Chr(10) & "" & Chr(10) & "", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
包含“[No]”的单元格示例如下:
[否]
解释为什么答案是否定的。
上面的代码应该在单元格中找到“[No]”并删除它,所以只有解释留在单元格中。
对于某些上下文,这段代码最初有效。我粘贴到Excel的内容有一些格式更改,这段代码从那时起就没有完成它的目标。
我粘贴到Excel中的内容最初是通过一个Copy& amp;粘贴功能。由于格式更改,我现在使用多个复制和粘贴功能复制并粘贴内容,以使格式与格式更改之前出现的格式保持一致。我使用另一个宏来执行这些Copy&粘贴功能。
我是VBA的新手并且继承了这个宏,因此它不是我构建的东西,而是我已经修改过的东西。
提前致谢,如果需要,我很乐意提供更多信息。