
答案1
選擇表並運行下面的巨集程式碼
Sub NoSpaces()
Dim c As Range
For Each c In Selection.Cells
c = Replace(c, " ", "")
Next
End Sub
將此程式碼寫入模組並使用立即視窗運行。為我工作。
答案2
您應該使用“修剪”功能關聯,因為“替換”也替換字串中間的任何空格:例如“.L.NP”給出“LNP”,而不是所需的“L.NP”。
選擇表並運行下面的巨集程式碼
Sub NoSpaces()
Dim c As Range
For Each c In Selection.Cells
c = Replace(c, " ", "")
Next
End Sub
將此程式碼寫入模組並使用立即視窗運行。為我工作。
您應該使用“修剪”功能關聯,因為“替換”也替換字串中間的任何空格:例如“.L.NP”給出“LNP”,而不是所需的“L.NP”。