如何使用VBA代码从整个excel中删除额外的空格？

\ 如果结束

---

End Sub

下面的代码删除了A列文本中的所有空格。希望这就是您要查找的内容。必要时修改守则。 我已经做了修改，使其适用于整个工作表。如果答案符合您的要求，请单击“接受”接受答案

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

---

你已经试过什么代码了？这些选项我试过了，但对我没有帮助。编辑你的帖子，准确地包含你试过的代码，并准确地描述你做了什么和没有做什么，以及你可能收到的任何错误消息。否则我们只是猜测或者感觉像是一个免费的代码编写服务。您提供的代码只在没有空间时显示消息。

Else

部分在哪里？信息的缺乏使我们很难帮助您。这也让人感觉你在发布问题之前没有对你的问题进行太多的研究。谢谢你的帮助。我们可以在整张纸上用同样的方法吗？（经过一些修改）

   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