如何使用 VBA 代码从整个 excel 中删除多余的空格？答案

【问题标题】：How to remove extra spaces from entire excel using VBA code?如何使用 VBA 代码从整个 excel 中删除多余的空格？
【发布时间】：2017-12-16 21:03:59
【问题描述】：

Set r = Worksheets("Sheet1").Columns("A").Find(What:="  ")
     If r Is Nothing Then
            MsgBox "done"

\ 万一结束子

【问题讨论】：

你已经尝试过哪些代码？
stackoverflow.com/questions/30768072/… 这些选项我试过但对我没有帮助..
编辑您的帖子以包含准确您尝试过的代码并描述准确什么有效和无效以及您可能遇到的任何错误消息已收到。否则，我们只是在猜测或感觉像是免费的代码编写服务。
您提供的代码仅在没有找到空间时显示一条消息。 Else 部分在哪里？
信息的缺乏使我们很难为您提供帮助。也感觉你在发布问题之前没有对问题进行太多研究

标签： vba excel

【解决方案1】：

下面的代码删除了 col A 中文本中的所有空格。希望这是您要查找的内容。根据需要修改代码。我已经完成了更改，以便它适用于整个工作表。如果它解决了您的要求，请单击接受以接受答案

   Sub teste()

    Dim UsedRng As Range
    Dim FirstRow As Long, LastRow As Long, FirstCol As Long, LastCol As Long

    Set UsedRng = ActiveSheet.UsedRange

    FRow = UsedRng(1).Row
    FCol = UsedRng(1).Column
    lRow = UsedRng(UsedRng.Cells.Count).Row
    Lcol = UsedRng(UsedRng.Cells.Count).Column

For X = FRow To lRow

For Y = FCol To Lcol
        temp = Cells(X, Y).Value
        tempC = (Trim(temp))
        Cells(X, Y).Value = tempC
        Next Y
Next X
End Sub

【讨论】：

感谢您的帮助。我们可以对整个工作表应用相同的方法吗？（经过一些修改）