替换单元格内容

Sub RemoveSpaces()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要处理的单元格范围
    Set rng = Selection
    
    ' 遍历每个单元格并去除空格
    For Each cell In rng
        cell.Value = Replace(cell.Value, " ", "")
    Next cell
End Sub

   [s2].Value = Replace([s2].Value, " ", "")

’替换【S2单元格中的空格】