如何使用 vba xcel 删除单词之间的空格

Question

我将非常感激您能帮助我弄清楚如何删除单词之间的空格。我只需要定位单元格“A1”中的内容，例如，如果我在单元格中有“Next Ex”，我希望宏将其更改为“NextEx”。我将在多张工作表上运行此操作，因此公式不是我的最佳选择。

Answer 1

考虑：

Sub NoSpace()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Range("A1").Replace what:=" ", replacement:=""
    Next sh
End Sub

Answer 2

VBA：

Dim cellText As String
cellText = [Get Cell Text From Worksheet]
cellText = Replace(cellText," ", "")

公式：

=SUBSTITUTE(A1," ","")

Answer 3

VBA：

Join(Split(Range("A1").Value, " "), "")

Split（文档）使用“ ”（空格）作为分隔符将字符串放入数组中；Join（文档) 数组转换为字符串，使用“”（空字符串）作为分隔符。