我想從 B 列中的所有文本值中洗掉空格，從 B2 行開始。這是一段代碼，它通過逐行洗掉 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）并一次洗掉所有空格，而不是逐行洗掉。
謝謝！
uj5u.com熱心網友回復：
您可以從以下代碼開始，該代碼將替換 A 列中的所有空格，而無需遍歷每個單元格。
Sub Macro1()
' replace spaces with ''
Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/417861.html
標籤：