从整个列VBA中删除空格

Question

我想从B2行开始，从B列中的所有文本值中删除空格。下面是一段代码，它通过逐行删除B列中的空格来工作：

Sub RemoveSpacing()
Set AssetToolSheet = ActiveWorkbook.Worksheets("AssetName Sheet")
Dim startingLine As Double
startingLine = 2

With AssetToolSheet
Do While .Cells(startingLine, 2) <> ""
.Cells(startingLine3, 2).Replace " ", ""
startingLine = startingLine + 1
Loop
End With
End Sub

希望引用整个范围(例如，B2:B(并一次删除所有空格，而不是逐行删除。

谢谢！

Answer 1

您可以从下面的代码开始，该代码将替换A列中的所有空格，而无需循环遍历每个单元格。

Sub Macro1()
' replace spaces with ''
Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub