VBA Cells.Replace()

Question

设置

我在Excel 2012中使用VBA

问题

我需要搜索一个工作表，并替换任何"#"s。只在第一栏。第二个Cells.Replace不工作。我想是因为"# # #“不喜欢那种类型的字符串。

当前代码

    'Find and replace "#" with ""
    Cells.Replace What:="###", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Cells.Replace What:="# # #", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

任何东西都可以。

Answer 1

删除#的任何组合

Cells.Replace "#", "", xlPart

**删除###或## ##或## #**

Cells.Replace "###", "", xlPart
Cells.Replace "## # #", "", xlPart
Cells.Replace "# # #", "", xlPart

编辑:注释解释了需要删除###或## # #或###。

Answer 2

'Find and replace "#" with "" in the first column only
Columns(1).Cells.Replace What:="#", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Answer 3

看上去应该管用的。如果它没有按预期工作，请确保您指定的字符串是相同的。看起来像空格的字符可能不是这样的，要么使用Excel中的mid & char函数进行二次检查，要么直接从您要寻找的单元格中剪切和粘贴。