Question

    Columns("P:P").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

我使用此代码替换点和空格。我的问题是，在所有情况下，删除空格并不起作用。例如，我有字符串＆＃34;你好＆＃34;它应该替换你好的结尾处的空格但不是。此字符串从另一个工作表导入。我删除hello末尾的空格并手动替换为空格，然后vba代码用于替换该空格。它几乎就像任何尾随字符一样，它不是空格。然后点数，例如＆＃34;你好......＆＃34;它只会删除两个点，所以我得到了＃34;你好......＆＃34;。任何人都有任何建议我为什么要面对这个问题？

Answer 1

要删除空格，我建议使用VBA的TRIM函数和代码如下：

Sub DeWhitespace()
Dim a As Long
a = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range("Q2", "Q" & a).FormulaR1C1 = "=TRIM(RC[-1])"
End Sub

替换点和空白

1 个答案: